cc-68-26 



OSCAR: A User's Manual with Examples 



by: Jo Ann Baughman 
Mary Berryman 
and Joel Davis 



August, 1968 




COMPUTER CENTER 

Oregon State University 
Corvallis, Oregon 97331 



OSCAR: A User's Manual With Examples 

August 19 6 8 
cc-68-26 



by : Jo Ann Baughman 
Mary Berryman 
and Joel Davis 



Computer Center 
Oregon State University 
Corvallis, Oregon 97 331 



ACKNOWLEDGMENT 

We wish to acknowledge the support of 
the National Science Foundation grant , 
GJ-51, NSF Aufenkamp 370 Regional 
Center, which aided the development of 
this manual. 



TABLE OF CONTENTS 



Pa g e 



PART ONE 



PART TWO 



In"troduc"tion -^ * 

Special Keys and Symbols 1 • 1 

References . . . . -*• • ° 

Eleven Complete Examples 2.0 

Each example contains a written explanation 
of the procedures used. 

1 . Demonstration of Simple Operations 2.1 

2 . Functions and Constants . 2 . 4 

3 . Stored Program • • • 2.7 

4 . Vectors and Matrices 2 . 11 

5. Subroutine Files: Subroutines to calculate 

the transpose and the inverse of a matrix... 2.14 

6. Data Files 2.22 

7 . Least Squares Test 2.31 

8. Newton's Method for Solving f(x) = 2.35 

9. The Runge-Kutta Method for Solving 

Differential Equations 2.37 

10. Calculation of Interatomic Distances 

for a Molecular Model 2.42 

11. Data File Created in OSCAR, Then 

Transferred to a Fortran Program 2.46 



(PART TWO is a revision of "Several Illustrated 
Examples in OSCAR," by Lise Hedberg and Joel Davis.) 



TABLE OF CONTENTS - Continued 

Page 



PART THREE 

SECTION A: Functions and Operators 3A. 

The words from the OSCAR language have 
been arranged in alphabetical order. 
Each word is given with its definition, 
examples of usage, brief explanatory notes 
regarding usage procedures and, in some 
cases, further references are included. 

ABS 3A - 1 

ACCEPT 

AND 

ARRAY • * — 3A - 2 

ATAN 

BY . . ' » 3 A • 3 

CLEAR 

COS 3A - 4 

CR 3A * 5 

DENOM 

DIV • 3A ' 6 

DO 

E 

ELSE 

ENTIER 3A * 7 

EP 

EPRINT 

EQ 3A ' 8 

EXP 

EXPR 

FALSE 3A - 9 

FOR 

FP 3A.10 

GCD 
GEQ 

GO. 3A ' 1]L 

GTR 

IF 3A.12 

IM 

ip 3A.13 

IS 
J 

KIND 
LEQ 

ii . 
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. ■ , 3A.19 
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PRINT 
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PUSH 
RE 
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SET 
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PART THREE 

SECTION B: Commands ' 3B.0 

The commands used under OSCAR are 
identified by the ampersand (&) typed 
by the user. The commands have been 
arranged in alphabetical order with 
examples and explanations of their usage. 

&BKSP, LUNLIST or 

&BKSPACE, LUNLIST 3B.1 

&CONTROL,LUN,TTY 3B.2 

&DATE 3B.4- 

&FWSP, LUNLIST or 

&FWDSPACE , LUNLIST 3B.4 

&INPUT,LUN,TTY or 

cTAT"DTTT' T T TM ^-^ cT-KTDTTT <V<W QR ll 

OtJ-l^lX U X 5 XJUiM WX' B11U Uljlll ■••)■ Oi-i.-T 

&OCTOUT, VARIABLE NAME, 

VARIABLE NAME , 3B.6 

&OUTPUT,LUN,TTY or &OUTPUT,LUN or 

&OUTPUT,TTY 3B.7 

&PRECISION,<INTEGER> 3B.8 

&PROGRAM,N, .M 3B.9 

&RESTART 3B.10 

&REWIND, LUNLIST 

&UDUMP,LUN 

&UL0AD,LUN 3B.11 and 

3B.12 



[NOTE: See Reference 7, Appendix F, for a 
complete listing of & commands . ] 
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OSCAR: A V ser's Manual Wi1 h Examples 
PART ONE 

Introduction 

OSCAR (Oregon State Conversational Aid to Research) is 
a "conversational" mathematical programming language for use 
at remote consoles. With the aid of OSCAR the user has 
direct access to the CDC 3 3 00 computer in a "conversational 
mode"; the teletypewriter unit may be used as a sophisticated 
desk calculator. The user types certain statements, trans- 
fers control to the computer and receives responses typed 
out on the teletypewriter. The statements may be simple arith- 
metic expressions or they may indicate more complicated 
calculations involving several steps. 

In PART TWO, the main part of each example is a printout 
from the teletypewriter unit. In some cases this is preceded 
by an introduction. In all cases, each example is followed 
by comments and explanations written under labels as indicated 
on the right-hand side of the example page. 

In PART THREE, each function and command is defined 
(there are 90 listed) and examples are given with each command 
illustrating usage and purpose. 



1.0 



1.1 



Special Keys and Symbols 

In OSCAR, the following symbols are used for the arith- 
metic operations: addition (+), subtraction (-), multiplication 
(*), division (/), powers (t) and square root (SQRT). 
Certain functions are available, e.g. sine (SIN) and cosine 
(COS), see Part Three. It should be emphasized that OSCAR is 
still being developed and more functions will soon be available, 
e.g. tangent (TAN), arctangent (ATAN) , numerator, denominator, 
etc. It is also possible for the user to define functions 

(— LJ.1\_1 O'-U-'-L UUI LilCD 5 UJLlJLO _l_ O DilWVii J_J.J. J- U.X L- j_ vv \_/ 5 u^i-v-lIiL^/ j-v- 1 • 

Some keys have special meaning in OSCAR. They will be 
referred to with the following symbols : 



Control Shift A 



Type the character "A" while the control 
shift is depressed. This is used to 
interrupt OSCAR if it is calculating. 
This causes the computer to type # . The 
pound sign is the symbol for the OS-3 
control mode. 
EXAMPLE : 



Control Shift A 



# MI (CRJ 

[NOTE: The command MI, manual interrupt, will return the user 
to OSCAR.] 



1.2 



(CR) 



The carriage return key terminates a 
line, returns control to the computer 
and causes a line feed and carriage 
return. 
EXAMPLE : 



Control Shift A 



#_ Job Number, user identification (CR) 

# OSCAR 

OSCAR at your service 

[NOTE: The underlined characters are printed by the computer.] 



The escape key terminates a line. Some 
keyboards will not have this key, in 
which case the "ALT MODE" key or a 

will do the same thing. 



Control Shift W 



These keys will terminate the line and 
return control to the computer. (The re- 
sult is similar to a ( QR) , but does not 
include the carriage return and line feed.) 



© 



The line feed key. 



BREAK 



The break key is used to interrupt OSCAR 
if it is typing. 



1.3 



EXAMPLE : 



BREAK 



BREAK RELEASE ! i Control Shift A 



Jt MT (ri^, 

* A line starting with * or ending with 

* is ignored. 

\ The backslash is obtained by typing L 

while depressing shift. The backslash 

cedes it to be ignored. 

& The ampersand is used in combination with 

certain commands . 
EXAMPLE: 
&PRECISION = 10 . 

[NOTE: This command would change the precision from the 

standard 6 significant digit to the specified 10 . ] 

&PR0GRAM, 6, .1 

[NOTE: This command can be used when creating stored programs 
See Part Two, page 2.7, Example 3.] 

::= The emphatic assignment will clear 

variables before assigning values to 
them. 



1.4 



EXAMPLE : 

X = 'Print Y f 

X::= 24 + 2 + 15.1 + 10.11 

[NOTE: See CLEAR, Part Three, page 3A.3.] 



The ellipses allow the user to extend a 

line without returning control to the 

computer. On the teletypewriter unit, 

"end of line" is indicated by a bell or 

a red light. At this signal the user types 

three periods , OSCAR provides carriage 

return and line feed and the user can then 

type the continuation of the line. 

EXAMPLE: 

A = ARRAY ((12 34X56 ... 

7 8)(9 10 ID) 

The per cent symbol is used to change the 
precision. See PREC, Part Three, page 3A.23 

The symbol that is accepted for the 
relational operator "less than" (LSS may 
also be used. See Part Three, page 3A.15.) 
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The symbol that is accepted for the 
relational operator "greater than." 
(GTR may also be used. See page 3A.11, 
GTR.) 



- or -*- Either of these symbols can be used 

for assignment. 



[NOTE: For a more complete list of symbols, See Appendix B, 
Special Symbols in OSCAR in "A Brief Description of 
OSCAR (Revised) ," by Joel Davis, cc-68-24.] 



1. 



References 

This report is intended as an introduction to OSCAR, 
only. It does not contain a complete description of OSCAR, 
nor does it describe the time-sharing system, OS-3, under 
which OSCAR is operating. Users who want more information 
about OSCAR and the OS-3 system should refer to the follow- 
ing manuals and reports: 

1. OS-3 User's Manual (Revised), by Gil Bachelor, cc-68-3. 

2. Teletype Operation , Department of Civil Engineering, 
cc-68-6. 

3 . Computer Center User's Manual , by Ron Davis and Kay 
Porter, cc-68-14. 

4. OS-3 Teletype Editor Manual (Revised), by Fred Dayton 
and Walter Massie, cc-68-17. 

5. A Control Mode Manual for OS-3, Version 2.0 , by 
Walter Massie, cc-68-21. 

6. Fortran Manual for OS-3, Version 2.0 , by Walter Massie, 

>— v- - DO— c t- • 

7. A Brief Description of OSCAR, Revised , by Joel Davis, 
cc-68-2i+. 

8. (Forthcoming) Using the Plotter: Documentation and 
Examples , by Jo Ann Baughman and Dean Pielstick, cc-68-25 

9. Free Form Input for OS- 3 Fortran , by Walter Massie, 
cc-68-27. 
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10. OSU Computer Center Program Library Catalog , cc-68-28. 

11. User's Manual for QS-3 , by Walter Massie and G.A. Parks 
of the Civil Engineering Department, 1967. 

12. SCANIN, A Free Format BCD to Floating Point Converter , 
by Walt Pawley, cc-68-10. 



OSCAR: A User's Manual With Examples 
PART' TWO 

Eleven Complete Examples Page 

1 . Demonstration of Simple Operations 2.1 

2 . Functions and Constants 2.4 

3 . Stored Program 2.7 

4 . Vectors and Matrices 2 . 11 

5. Subroutine Files: Subroutines to calculate 

the transpose and the inverse of a matrix 2.14 

6. Data Files 2.22 

7 . Least Squares Test 2.31 

8. Newton's Method for Solving f(x) = 0. 2.35 

9. The Runge-Kutta Method for Solving 

Differential Equations 2.37 

10. Calculation of Interatomic Distances 

for a Molecular Model 2.42 

11. Data File Created in OSCAR, then Transferred 

to a Fortran Program 2.46 



2.0 



2.1 



Example 1. Demonstration of simple operations 



Control Shift A 



. . . s~\ 
# job number, user identification 1CR) 

#OSCAR 'CR) 

OSCAR AT YOUR SERVICE V18 03/11/68 

^EXAMPLE 1 

X=6;Y=7;X*Z\Y IS 

X^6;Y«-7; PRINT X*Y 

6/7 IS (esc) 6/7 

r- / -i n -re it-> o /ni\ n / o 

c ftrcpl 



165C 




42 
42 



6./7. IS 1ESC 

6P10/7P10 IS 



(ES^ 



0.857143 

0.8571428571 
LET F(X,Y)=X*Y-5*X+3; F(4,7) IS 1ESC 

C: : = ? A+2+B+2 ! (S) [NOTE: The double colon, which would 

A=1;B=2;PRINT C fesa 5 

B=3;PRINT C fesc) 10 

:sc 



clear any previous value from C, 
is not necessary in this case. 
See CLEAR, page 3A.3. ] 






FOR X=2 BY 2 TO 10 PRINT X,X+2,X+3 

8 4 16 64 

8 • 64 512 10 100 

FOR X=2 BY 2 TO 10 PRINT X,X+2,X+3,CR 

2 4 8 

4 16 64 

6 36 216 

8 64 512 

10 100 1000 



2 
36 
1000 



4. . . 
216. . . 



© 



FOR X=0.2 BY 0.2 
0.2 
0.4 
0.6 
0.8 
1.000000 

LOGOFF (CR) 


TO 1. 
)NDS. 


PRINT X,X+2 
0.04 
0.16 
0.36 
0.64 
1.000000 

MFBLKS 0000 


,SQRT(X) ,CR 
0.4472135 
0.6324555 
0.7745965 
0.894427 
1.000000 

COST $ 


<§> 


Control Shift A 




#L0GQFF (CR) 
TIME 2.8 57 SECC 





la 



lb 



!• lc 



Id 



/ le 



If 



lg 



t lh 



2.2 



Comments to Example 1 

la OSCAR is available when the CDC 3 3 00 computer is running 
under the OS-3 operating system. To LOGON the user 
needs a job number and user identification registered 
with the OS-3 system. Following the proper LOGON, the 
computer types #, the user types OSCAR and depresses 
the carriage return key. The computer types OSCAR AT 
YOUR SERVICE, etc., and is ready to receive instructions. 

lb A line starting with an asterisk (*) is ignored by the 

computer and may be used as a comment. The same is true 
of a line ending with typing errors. A single character 
is cancelled by a backslash (\), see 1c . Two of these 
will cancel the last two characters typed. 

lc The two statements X=6 ;Y=7 ;X*Y IS and 

X-«-6;Y-«-7 ; PRINT X*Y are equivalent. In each case, 6 
replaces X. 7 replaces Y and X*Y is calculated and 
printed. The backslash cancels the Z typed by mistake. 
Several statements on a line are separated by semicolons 

Id A simple fraction is left unchanged or reduced when 
possible. Division of two decimal numbers will give 
the quotient with six figures unless a different pre- 
cision is indicated. With precision 10 (6P10/7P10) 
the quotient is given with ten figures. 



2.3 



le The word LET enables the user to define functions. 

2 2 
If C is defined as the literal expression A +B , which 

must be enclosed in apostrophes . The two colons 

following C clear the left-hand side. When both A 

and B are defined, C may be calculated and printed. 

When only B is redefined, A retains the original value. 

lg The FOR statement is used to define a series of oper- 

2 3 
ations . Here X and X are calculated for X-2 ,4 , 6 , 8 ,10 . 

If no carriage return is indicated, several numbers are 

printed on a line. The ellipses indicate a continuation 

of the line. Ellipses may also be used in input to 

extend a line (see comment 6b, page 2.2 6.) The letters 

CR included in the print statement will cause a carriage 

return at that point . The numbers and the intervals 

in the FOR statement may be decimal numbers or complex 

numbers as well as whole numbers . 

lh The first LOGOFF had no effect. It is necessary to use 
Control Shift A and wait for the computer to print # 



before the LOGOFF command can be used. MFBLKS stands 
for memory file blocks. Only when the user is working 
with files, as in Example 5, will the number be different 
from zero. TIME indicates to the nearest millisecond the 
computer time used in performing the calculations. 



2.4 



Example 2. Functions and constants . 



Control Shift A 



#job number, user identification CR 
#OSCAR (CR; 

OSCAR AT YOUR SERVICE V18 03/11/68 17?" 
^EXAMPLE 2 



! ^R) 



SQRTC2.) IS (ESC' 



SQRT(2) IS IESC; . . . 

1.414 213 £6 23730950488016 8872420969807856 9 6718753770 



1.414215 

1.4142135623731 

3.1415926535898 

2.7182818284590 

0.90929742682568 

0.416146836547143 

0.909296 

0.50000000000000 

0.25881904510252 



SQRTC2P14) 


IS 


IESC) 


PRINT PI 




IESC) 


PRINT E 




H 


SIN(2) IS 




fe 1 

(esc; 


C0S(2) IS 




SIN(2.) IS 




(esc) 


SINCPI/6) 


IS 


(ESC/ 



SINCPI/12) IS (ESC ; 



CONST=PI/180;PRINT CONST 



(ESC) 



0.017453292519943 



SIN(15*C0NST) IS (ESC) 0.25881904510252 

C0S(15*C0NST) IS (ESG 0.96592582628906 

TAN(15*C0NST) IS (ESCJ 
TAN( TEMP ) 

OPERATION NOT IMPLEMENTED 



L0G(4) IS 
EXP(2) IS 



(ESC) 1.3862943611240 
V 



lESCj 7.3890560989341 

- y 



Control Shift A : 



#L0G0FF iCR 

TIME 2.§'30 SECONDS. MFBLKS 0000 

U 



.'■ 2a 



, 2b 



2c 



2d 



2e 



2.5 



Comments to Example 2 

2a An integer with no decimal poirrc is considered an exact 
number. The square root of an exact number is given 
with 5 digits; this is maximur precision. A number 
with a decimal point and no precision indicated is assumed 
to have precision 6. The square root of such a number 
will have approximately the same precision — 6 or 7 
digits will be printed. When precision 14 is indicated 
for the argument, 14 or 15 digits will be printed. 

2b The constants it and e are preset with 14 digits. 

2c The argument of the sine or cosine function is an angle 
given in radians. The sine and cosine functions are 
accurate to about precision 14 or 15 . Sine and cosine 
of exact numbers will be given with 14 or 15 digits. 
Sine or cosine of a decimal number will have about the 
same precision as the argument — up to 14 or 15 digits. 

2d To calculate sine or cosine of angles given in degrees 
it is necessary to multiply the number of degrees with 
a constant, ir/180. Here, this constant is calculated 
and given the name CONST, for convenience sake only. 
OSCAR recognizes variable names up to four characters . 
When more characters are used, they are ignored. 



2.6 



2e The function TANGENT has not yet been implemented. 

A call for such a function will cause an error state- 
ment as seen here. Functions rot available may be 
defined by the user on an individual basis, as is 
shown in Example 5 . 



2.7 



O. 



@ 



Example 3. Stored Program . 

#job number, user identification 'CR) 

#OSCAR 

OSCAR AT YOUR SERVICE V35 07/25/68 0919 

&PR0GRAM,!, .01 (CR} [ NOTE 

1.01: READ X (CR! 

1.02:Y = X (CR) 

1.03:Z: : = T Y+ 2+16*Y+4 . 5 f 

1.04: PRINT "Z",Z,CR (CR 



A stored program can also be 
entered by another method 
whereby the user types the 
sequence numbers (1.01: in 
this example).] 



© 



1 nR'PRTWT "SnpTfZV QORT ?. PR 

1.06: PRINT "END OF PART ONE 
1.07: {ESC 






© 



DO PART 1 

3 (CR) 

Z 61.50000 

SQRT(Z) 7.842194 

END OF PART ONE 



DO PART 1 (CR} 

-89.76 (CR) 

Z ^ 6625.2 

SQRT(Z) 81.39535 

END OF PART ONE 



2.2:S = Z (CR 
2.3:LET D=S-2I+89 . 5*PI 
2. 5: PRINT "D IS",D,CR 
2. 6: PRINT "END OF PART TWO 
(CR 



crj 



[CR) 



DO PART 1 

4 (CR) 

Z 84.50000 

SQRT(Z) 9.1923882 

END OF PART ONE 



(CR, 



DO PART 2 

D IS ~ 365.673-21 

END OF PART TWO 



f 3a 



3b 



'[ 3c 



; 3d 



3e 



3f 



2.8 



Example 3 : Continued 



2. 7: 2. 9: PRINT "2.9" (c5) 

2. 8: PRINT "2.8" (CR) 

DO PART 1 (CR"> 

3 (CR) " J 

Z 61.50000 

SQRT(Z) 7.842194 

END OF PART ONE 

DO PART 2 (CR) 

D IS V "'342. 673-21 

END OF PART TWO 



3g 



3h 



2.8 
2.9 



Control Shift A 



#TIME (CR) 

TIME 7.611 SECONDS. MFBLKS 

#TRAFFIC ; CRj 

traffic is ;ri2 

^LOGOFF (CR) 

TIME 7.7 00 ^EfCQNDS. MFELKS 



CFBLKS 



3 i 



2.9 



Comments to Example 3 

3a The command &PP.3GRAM, <Part Nuir. Der> . <Step Number > 

(e.g. &PROGRAM, 1.01) will cause the sequence number 
<Part Number> . <Step Number> (1.31 in the example) to 
be printed by the computer. Each number cannot be 
larger than 999999. The user can then type the con- 
tents of that line and ■terminate the line with a ,CR; . 
The contents of the line 1.01 will be placed in storage 
identified by the number. The computer will then type 
the next sequence number. This will continue until 
(ESC/ is pushed. 

3b The stored program can also be set up with the user's 
typing the sequence numbers . The contents of line 
1.01 will be put in storage identified by that number. 

3c The command DO PART 1 will cause all of the text found 
in numbers starting with one (1) to be executed. The 
command READ X will cause OSCAR to expect a value for 
X to be printed by the user. The value in this case 
is three (3). It will be put in a storage location 
identified by X. See READ, page 3A.25. 

3d PART 1 is executed again, this time with the value -8 9.7 6 
being read in. 



2.10 



3e Another stored program has beer, typed in and the text 
will be in storage identified by the sequence numbers. 

3f PART 1 is executed, this time with the value 4 for X. 

PART 2 depends on the value of Z found in PART 1. PART 2 
is executed. 

3g Two more statements are added -';o PART 2. In this case, 
statement 2.7 contains 2.9. When 2 . 7 is executed, the 
contents ( 2 . 9 : PRINT 2.9) will be stored under 2.9. The 
statements will be executed in the order of their se- 
quence numbers. See part 3h. 

3h PART 1 is executed with the value 3 being read in for X. 
PART 2 is executed using the value of Z calculated in 
PART 1. 

3i The command TIME (used in control mode #) will cause 
the number of seconds used since the user logged on 
to be printed, along with the number of file blocks 
(MFBLKS) used. The command TRAFFIC (used in control 
mode #) will cause the number of users to be printed. 
(See Reference 5, page 39.01.) 
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Example 4 . Vectors and matrices . 

#job number, user identification (CR< 

#OSCAR (CR) 

OSCAR AT YOUR SERVICE V18 04/03/68 0853 

A«-ARRAY(1 2 3 ) ; B«-ARRAY ( 7 6 5);PRINT A+B,A-B,A*B 
(888) 
(-6 -4 -2 ) 34 

A«-ARRAY(1 2 3 15 6 7 8 9);PI\RINT A (ESC) 
(123456789) — J 



(ESC 



>> 




9 



T^/ 7 * 



A(7:9K0YpRINT A (ESC) 
(12 10 45600 V-^) 



CLEAR A(7:9);^S?T; A 

(1 2 10 4 5L) ! 



(esc) 



^ 



t ? 




FOR 1=4 TO 6 CLEAR A(I); PRINT A 
(1 2 10 ) 

A«-ARRAY((1 2 3) (4 5 6) (7 8 9)) (ESQ 

PRINT A(2) 
(456) 



A(2,3H0;PRINT A 
((123) 
(450) 
(789)) 





A 



-ft I l 



? 



w 



/ 4< 



> 4b 



4c 



PRINT A*A (ESC) 
( (30 36 30-0 
(24 33 12 ) 
(102 126 102 ) 



) 



A(2HARRAY(10 11 12);PRINT A 
( (1 2 3) 
(10 11 12 ) 
(789)) 



CLEAR A(2) ; PRINT A 
( (1 2 3 ) [] 
(789)) 

CLEAR A(3);PRINT A 
((123)) 






4d 



> 4e 



2.12 



Example 4 . Continued 



Control Shift A 



#LOGOFF CR 

TIME 2.561 SECONDS. MFBLKS 0000 COST $ 



Comments to Example 4 

4a A vector is defined using the word ARRAY. The vector 
components are enclosed in parentheses and separated 
by spaces. Commas may also be used to separate elements 
of arrays. Here A and B are defined as two vectors and 
their sum, difference, and product are calculated. 

4b A is defined as a vector with nine components. Compo- 
nent number N is referred to as A(N) . The statement 
AC3H10 changes A(3) to 10 leaving the other components 
unchanged. When several successive components are changed 
to the same value the colon may be used as in A(7:9)«-0. 
The statement CLEAR A(7:9) clears the last three compo- 
nents. The FOR statement may also be used to clear 
successive elements. 

4c A matrix is also defined using the word ARRAY. The 

matrix is defined row by row, the elements of each row 
are enclosed in parentheses and outer parentheses 



2.13 



enclose all rows . A is here defined as a 3 by 3 
matrix. A(2) refers to the second row, A(2,3) to 
the third element in the second row, etc. 

4d The operations addition, subtraction and multipli- 
cation of matrices are indicated in the same way as 
for vectors (see M-a) only multiplication is performed 
here . 

4e Any of the rows may be redefined leaving the other rows 
unchanged. The statement CLEAR A(2) leaves row two 

imrlnf i r-> £^ s-\ • -i -h r\ r\ ^\ <?• t-i /~\ H~ ^ -P -P a r^ 4- r»Ar.7 -f- ~K in /ti s~* TaTVi r^ r~\ nr\r.7 

three is cleared also, only row one is printed. The 
print statement will include all rows up to the last 
one which contains actual values . 

[ NOTE : The elements of vectors and matrices may be complex 

as well as real numbers. In general, any type of number 
legal in OSCAR is . legal as an array element. The 
maximum size of a one-dimensional array is 255. A two- 
dimensional array may be 255x255, a three-dimensional 
one 255x255x255, etc., limited only by the size of the 
computer memory. Matrices may have any number of 
dimensions . ] 
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EXAMPLE 5. Subroutine Files: Subroutines to calculate the 
transpose and the inverse of a matrix. 

Certain subroutines, e.g. the sine and cosine subroutines, 

are already part of the OSCAR subroutine library and are 

available to all users. In addition, it may be convenient 

\ 
for a user to establish subroutine files of his own related 

to the type of calculations that are of special interest to 
him. It is not possible to establish subroutine files directly 
from OSCAR. The user may, however, take advantage of the fact 
that OSCAR Is part of the OS-3 operating system. Files estab- 
lished under the OS-3 system may be called from OSCAR and used 
as subroutines. In this example two subroutines are established 
The first, called TRANS (M, N, AA ) , generates the transpose of a 
matrix AA , with M rows and N columns. The second, called 
INV(N,AA), calculates the inverse of a square matrix AA, of 
order N, by Jordan's method. 

The example has been divided into three parts: 

1. Entering the subroutines on files, 

2. Using the subroutines in calculations in OSCAR, and 

3. Making a paper tape copy of one of the subroutines. 

The subroutines are entered by the aid of the OS-3 library 
routine EDIT. The first subroutine is typed in on the keyboard 
of the teletypewriter; the second is read from paper tape. The 
paper tape had been punched as a copy of another user's file, 
as shown in Part III (of this example). This provides the 
only means of transferring information between files of 
different users . 
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Example 5. Part I 



#job number, user identification (CR) 



#EDIT (QRL. 

] INPUT CR) r nn s~\ 

00001:LETTRANS(M,N,AA)=[CLEAR BB;F0R 1 = 1 TO M JDO[TR;BB] ] (CR) 

00 00 2 :TR: ^FOR J = l TO N DO BB( J ,1 )+-A(I , J ) ' ,CR) 

0000 3: JESCJ "^ 

]LIST (CRt^ 

00001:LeV / TRANS(M,N,AA) = [CLEAR BB;FOR 1 = 1 TO M DO[TR;BB]] 

00002:TR: :='FQR J=l TO N DO BB( J ,1 KA( I , J ) ' 

1 OUT, TRANS (CR) 



] 1 Control Shift A | 
#FP, TRANS (CR) 
(CR) 



® 



#EDIT 
]TAPE 



1 Insert tape in tape reader") (£R) i Start tape j 
LET INV(N,AA)=[FOR 1 = 1 TO N DO[BB=AA(I ) ;AA(I ,1 :N)<-0 ;AA(1 ,1 ) . . . 

=1 • SS • AA] ] 

Ssi'FOR J=l TO N DO[TT^AA(J,I)/BB(I);AA(J)=AA(J)-TT*BB;AA... 

(J,I)^TT] ! 
]OUT,INV (CR) 

]RESEQ (CR) 

]LIST (CR) 

00001: 

00002: 

00003:LET INV (N ,AA) = [FOR 1 = 1 TO N DO[BB=AA(I ) ;AA(I ,1 :N)«-0 ;AA. . 

(I I)=1*SS*AA]] 

00004:SS^'FOR J=l TO N DO[TT^AA( J ,1 ) /BB(I ) ;AA( J) =AA( J) -TT*BB ; . 

AA(J,IKTT]' 



]ERASE,1,2 (CR) 



1RESEQ JCR) 

3LIST (CRJ 

00001:LETTINV(N,AA) = [FOR 1 = 1 TO N DO[BB=AA(I ) ;AA(1 ,1 :NH0 ;AA . . 

(I I ) = 1 • S S * A A 3 ] 

00002^SS^'FOR J=l TO N DO[TT^AA( J ,1 ) /BB(I ) ;AA( J) =AA( J) -TT*BB . . 

;AA(J,IKTT]' 
]OUT,INV (CR) 

] | Control Shift A | 

#FP,INV (gR) 
^LOGOFF Oy 
TIME 1.8>E SECONDS. MFBLKS 0001 



5a 



/'5b 



5c 



5d 



5e 



5f 



5g 
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Example 5 . Part II 

#job number, user identification iCR) 

#OSCAR @ 

OSCAR AT YOUR SERVICE V18 04/03/68 0911 

&CONTROL, TRANS, TTY 65) 

LET TRANS(M,N,AA)=CCLEAR BB;FOR 1=1 TO M D0[TR;BB]] 

TR::='FOR J = l TO N DO BBC J ,1 )«-A(I , J ) ' 

A^ARRAY((1 2 3) (4 5 6)); PRINT A 
((123) 

(456)) 



B=TRANS(2,3,A); PRINT B 
((14) 
(2 5 ) 
(36)) 



5h 





PRINT A*B,CR,B*A 
( (14 32 ) 

(32 77 ) ) 




5i 



( 



(17 
(22 
(27 



22 
29 
36 



27 
36 
45 



) 



) ) 

&CONTROL,INV,TTY (CR) 

LET INV(N,AA) = [FOR 1 = 1 TO N DO[BB=AA( I ) ;AA(1 , 1 :NK ;AA(I ,1 ) 

1 • SS • AA] 3 

SS^-'FOR J = l TO N DOCTT-eAA(J,I)/BB(I);AA(J)=AA(J)-TT*BB;AA.. 

(J,I)«-TT] ! 

A+ARRAY((50 107 36)(25 54 20)(31 66 21)) (££) 



'5j 



PRINT A , CR , INV ( 3 , A) , CR , A*INV ( 3 , A) 



(50 
(25 
(31 



107 
54 20 
66 21 



36 ) 

) 

) ) 



@ 



(-186 129 196 
(95 -66 -100 
(-24 17 25 ) 



/5k 



(1 
(0 
(0 



Control Shift A 



#LOGOFF 
TIME 



ICR) 



3.5M SECONDS. MFBLKS 0000 



51 
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Example 5 . Part IT 



#job number , user identification CR 



■WPOPV TW-TMU i Turin rN-n -Hp-no minph I P^? 

LET INV(N,AA)=[FOR 1 = 1 TO N D0[ BB=AA( I ) ; AA( 1 , 1 : N )<~ . . . 
0;AA(I,I)=1;SS;AA]] . 5 

SS^'FOR J=l TO N DO[TT^AA(J,I)/BB(l) ;AA(u ) =AA( J)-TT*BB ; . . . 
AA(J,IHTT]' 

#LOGOFF CR 

TIME 0.C99 SECONDS. MFBLKS 0000 

# 
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Comments to Example 5_ 

In all the previous examples, 1 he only part of the OS- 3 
system used was the library routine OSCAR. In this example 
other features of t;,e OS-3 system aie used as well; in parti- 
cular, the library routine EDIT. Tie OS-3 system and the 
library routine EDI'! are described : n the manuals listed on 
page 6. Brief descriptions of the statements used in this 
example are included in the comments . 

The sign # is printed by the computer. It Indicates 
that the computer is ready to accept OS-3 control statements, 
such as: LOGON, LOGOFF, EQUIP, FP , SAVE, or a call for an 
OS-3 system routine, such as: EDIT, OSCAR, COPY. 

The sign ] is also printed by the computer. It indicates 
that the computer is operating under EDIT In the command mode 
and is ready to accept EDIT commands, such as: INPUT, OUTPUT, 
LIST, and TAPE. 



Control Shift A 



is used to get back to the general OS-3 
system from either EDIT or OSCAR. 



5a A call for EDIT followed by the command INPUT prepares 
a work area in the computer memory. The computer pro- 
vides a sequence number, the user types a line terminated 
by pressing the carriage return key, and the computer 
continues to supply sequence numbers until the escape 
key is pressed. As in OSCAR, backslash (\) is used to 
cancel single characters; however, (@) is used to cancel 
whole lines. 
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5b The command LIST will cause the computer to print the 

contents of th = work area, and may be used to check the 
input . 

5c The command 01 > r ..." , TRANS equips a file, rewinds the file, 

and places thr text under the name specified in the file 
directory unde:"' the name TRANS. File names may have up 
to 8 characters and need not necessarily be the name of 
the subroutine as is the case lere , FP , meaning file 
protect, protects the file so chat it will be available 
for use later. A file which is not file protected might 
be accidentally destroyed. 

5d The EDIT routine is used for input of the second subroutine 
also. The command TAPE prepares a work area for input 
and reads paper tape. At the end of the tape input the 
escape key is pressed. At this point it is a good idea 
to put the text in the file directory with the command 
0UT,INV, (See 5c) . 

5e The statements in this section are included for checking 
purposes only. No sequence numbers are provided by 
the TAPE command. The command RESEQ (resequence) 
assigns a sequence number to each line in the work area. 
Without RESEQ, LIST would print the contents of the work 
area without sequence numbers. The two blank lines are 
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caused by two carriage returns punched at the begin- 
ning of the paper tape. They ray be left in or 
erased as is cone here. 

5f The corrections must also be placed out in the file 
directory with the command 0UT,INV. The second sub- 
routine is th€ i . file protected, 

5g MFBLKS stands for memory file blocks . The number 

printed is the maximum number of files in memory at 
any time. Two files were used in this example. When 
the first file was saved and file protected, it was 
taken out of memory and, as a result, only one file 
was in memory at a time and the number printed is 1. 
(See also 51) 

5h &C0NTR0L, TRANS, TTY is an OSCAR command which transfers 
the statements from the file specified to the OSCAR 
scratch area and executes them one at a time. (The 
ampersand is typed by the user.) TTY causes the state- 
ments to be printed on the teletypewriter. TTY may be 
omitted, in which case the statements are not printed, 
but are still executed. See page 3B.0 for &. 

5i A is defined as a matrix with two rows and three columns 
The name of the subroutine is TRANS (M,N ,AA) , where M 
is the number of rows , N the number of columns , and AA 
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the name cf the matrix. B is defined as the transpose 
of A by the statement: 3= TRANS ( 2 , 3 ,A) . The multipli- 
cations A*B and B*A are equivalent to A*A T and A T *A. 

5j &CONTROL,INV,TTY transfers and prints the statements 
on the file specified, in this case the subroutine 
INV(N,AA), which calculates the inverse of a square 
matrix AA of crder N. 



5k A it; defined as a 3 by a 3 matrix. A may be calculated 
as INV(3,A). .."Tie print statement includes A, A and 
A**A The ma ~rix elements are not restricted to whole 
numbers. (See NOTE on page 2.13.) 



51 Although two files were used in this example, no memory 
blocks were used. The files are not copied into memory 
as such. The information is transferred to the OSCAR 
scratch area as instructions . 

5m COPY is an OS- 3 utility routine which may be used to 
copy information from a file. COPY,IN=INV causes the 
content of the file specified to be typed on the tele- 
typewriter; by turning on the paper tape punch, the user 
gets a paper tape copy at the same time. A paper tape 
can also be generated by using the EDIT command TTP . 
(See Reference 4.) 
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EXAMPLE 6: Data Fi. les 

Data files may be written and read from OSCAR using 
the OSCAR commands. &OUTPUT,LUN and &INPUT,LUN, where LUN 
stands for logical unit number of ar already equipped 
file. Following &C- TPUT ,LUN , each !'RINT or EPRINT state- 
ment will cause information to be written on the file 
specified by LUN. {.PRINT (Emphatic PRINT) is a special 
print command which prints structures like arrays and alpha- 
betical strings with the necessary punctuation to be read 
in again by OSCAR. Following &INPU .? ,LUN , each READ state- 
ment will read information from the file specified by LUN. 

See Section B of Part Three of this manual for 
uSiiniLions qRu examples o± & commands beginning on page 3B.1 
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Example 6. Data Files . 

#job' number ,user -identification : CR' , g 

#EQUIP,1 = EJ^LE (CR f 

#OSCAR (cr: 

OSCAR AT YOUR SERVICE V18 04/19/68 1620 

A=101;B=202;C=303 (CR) 

D=ARRAY( (1.11111 , 1.22222 , 1.13333 , 1 . 44444 )( 2 . 11111 , 2... 
.22222 , 2.33333 , 2.44444)) (CR) J 

&0UTPUT,1,TTY (CR) \ 6c 

PRINT "-RESULTS FROM TEST 1 \ESc) -RESULTS FROM TEST 1 ] 6d 

PRINT A,B,C,CR (ESC) 101 202 303 ] 

PRINT "^RESULTS FROM TEST 2 (ESQ -RESULTS FROM TEST 2 

EPRINT D 5 CR (CR) ; 6d 

ARRAY . . . V " ] 

( (1.11111 , 1.22222 , 1.33333 , 1.444^-4 ) ,... '■ 6e 

(2,11111 , 2,22222 , 2.33333 , 2.44444 ) ) \ 

fn-n\ \ 




X IS (ESQ 101 
&REWIND 1 (CR) 



Control Shift A i j 



6f 



#COPY,IN=l (CR) ] 

-RESULTS FRtfM TEST 1 j 

101 202 303 i 

-RESULTS FROM TEST 2 ;• 6' 

ARRAY ... I ' 

( (1.11111 , 1.22222 , 1.33333 , 1.44444 ) 

(2.11111 , 2.22222 , 2.33333 , 2.44444 ) ) 

#OSCAR (CR) 

OSCAR AT YOUR SERVICE V18 04/19/68 1624 
&REWIND 1 (CR 



, ... j 

/ 



l 
&INPUT,1,TTY (CR) =, 6h 

READ X @ ■ ! 

^RESULTS FROM TEST 1 

101 202 303 I 



READ X,Y,Z (CR) ', 6i 

^RESULTS FROM TEST 1 I 

101 202 303 

X IS ESC 1.01 ; 

Y IS ESC 20 2 

Z IS ESC 303 ^ 

i 
i 
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Example 6. Continued ! 

READ W (CR) J 

-RESULTS TO)M TEST 2 

ARRAY ... / 6 D 

i 

( (1.11111 , 1.22222 , 1.33333 , 1.414444 ) ? ... j 

(2.11111 , 2.22222 , 2.33333 , 2.44444 ) ) | 

^ I 

w IS .cr} ; 

( (1.11111 1.22222 1.33333 1.44444 ) j 

(2.11111 2.22222 2.33333 2.44444 ) ) 

& OUTPUT, 1 (CR) [ 6k 



EPRINT "RESULTS FROM TEST 3",CR (CR) .' 61 



PRINT X+Y,X+Z,Y+Z,CR (CR) 



Control Shift A 



\ 6m 



j 



EPRINT "RESULTS FROM TEST 4",CR fcRj ) 61 

EPRINT 2*W,C (CR) / 6m 

& DATE @ \ Rn 



#SAVE,1=XEST CR! ) 

#FP,1 fcRY w > 60 

#LOGOFF ^tCR; 

TIME 3.478 SECONDS. MFBLKS 0001 

# 

#job number, user identification (CR.) \ 

#EQUIP,10 = TEST (CR) " 

#COPY,IN = 10 CR) "" 

^RESULTS FROk'TEST 1 j 

101 202 303 
^RESULTS FROM TEST 2 
ARRAY 

( (1.11111 , 1.22222 , 1.33333 , 1.44444 ) , ... . . \ 
(2.11111 , 2.22222 , 2.33333 , 2.44444 ) ) 
"RESULTS FROM TEST 3" 

303 404 505 
"RESULTS FROM TEST 4" 
ARRAY 
( (2.22222 , 2.44444 , 2.66666 , 2.88888 ) 

(4.22222 , 4.44444 , 4.66666 , 4.88888 ) ) 
04/19/68 1628 



6p 
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Example 6 . Continued 

#REWIND 10 (CR) 

# OSCAR (CR; 

OSCAR AT YOUR SERVICE V18 04/19/68 1631 

& INPUT, 10 (CR: 

READ A,B,C,D,E,F,G,H,K,L,M (CR) 

READ ( M ) 

INPUT DATA ERROR. 

A IS (ESQ 101 



B IS 


(ESO 


202 








C IS 


(esc) 


303 








D IS 
( (1 


{esc) 

.IMrll 


1.22222 1.33333 


1 


. 44444 




( o 


> j-xj-ix 


o OOOOO O qqqQQ 


2 


( Ulilllill 


^ 
/ 


E IS 


;esc) 


RESULTS FROM TEST 


3 






F IS 


(ESC) 


303 








G IS 


(esc] 


404 








H IS 


tesc) 


505 








K IS 


(esc) 


RESULTS FROM TEST 


4 






L IS 


(ESC/ 










( (2 


2 2?i2 


2.44444 2.66666 


2 


.88888 


) 


(4 


22222 


4.44444 4.66666 


4 


.88888 


) 


M IS 


(esc) 


[] 









Control Shift A 



#LOGOFF (pRj 

TIME 1. 7 8 T 'SECONDS. MFBLKS 0000 

# 



bq 



6r 
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Comments to Example 6 

In this example the OSCAR commands: &0UTPUT, &INPUT, 
&REWIND, and &DATE are used. In all these commands the amper- 
sand can be typed by the user. This is not the case with 
the sign #. This sign is typed by the computer indicating 
that the computer is operating under the OS- 3 system control 
mode. See page 3B.0 for &. 

6a Files cannot be equipped directly from OSCAR. They 

must be equipped outside OSCAR by the OS- 3 control state- 
ment: EQUIP, LUN=FILE. (See Reference 5, page 16.01.) 

6b A, B, and C are defined as three variables. D is defined 
as an array. The input of D extends over more than one 
line. On the teletypewriter unit, "end of line" is 
indicated by a bell or a red light. At this signal, 
the user types three periods , OSCAR provides carriage 
return and line feed, and the user types the continuation 
of the line. The line is terminated when the user presses 
the carriage return or the escape key. 

6c &0UTPUT,1 is an OSCAR command. Following this command 
all outputs are written on file 1 until another &0UTPUT 
command is given. This may have the form: &0UTPUT ,LUN , 
where LUN is the logical unit number of a different file, 
or &OUTPUT,TTY, where TTY refers to the teletypewriter. 
&OUTPUT.LUN,TTY directs the output both to a file and 
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to the teletypewriter. An errcy? statement after 
&OUTPUT,LUN will cause the outpv.t to revert to the 
teletypewriter. See Section B of Part Three, &OUTPUT, 
page .3>.7 . 

6d Text as well as numbers may be written on the file. 

Two different types of PRINT statements may be used in 
connection with text. The one used here has the form: 
PRINT"*TEXT fesry ; in this case, the text is written on 
the file in the form of a comment which will be ignored 
by the READ statement. See also 61. 

6e To write the values of the three variables A, B, and C 
on the file, either of the statements PRINT or EPRINT 
may be used. To write the array D on the file, it is 
necessary to use the statement EPRINT (Emphatic Print). 
(PRINT would cause the numbers to be written on the file 
in a form which could not be read in again.) The 
letters CR mark the end of line on the file. It is 
essential that the last PRINT statement end with the 
letters CR or part of the information will be lost. 
However, if control is switched back to the teletypewriter 
by an &OUTPUT,TTY command, a CR is supplied automatically. 

6f &REWIND 1 is an OSCAR command. It is similar to the 

OS-3 control statement REWIND I, which may be used after 
the sign # . 



2.28 



6g The OS-3 routine C0PY,IN=1 is used to print all infor- 
mation written on file 1. This is not an essential 
part of the procedure. It is done only to check the 
contents of the file. 

6h The, information on file 1 may le read from OSCAR follow- 
ing the command &INPUT,1; TTY causes the information to 
be typed on the teletypewriter. Normally, it is 
omitted. The statement READ X will read all information 
from the first line on the file. This includes the 
comment: -RESULTS FROM TEST 1, as well as the numbers: 
101 202 303. The value 101 is assigned to X. The 
numbers 202 and 303 are not assigned to any variables. 

6i After the command &REWIND 1 the same line is read again; 
this time by the statement READ X,Y,Z. The three 
numbers are assigned to the three variables. The line 
was written on the file by the statement PRINT A,B,C,CR. 
Any three variable names may be used in the read state- 
ment. It would have been possible to read the infor- 
mation by three separate statements: READ X; READ Y; 
READ Z. 

6j The statement READ W reads the comment as well as the 
array. The printout following the statement W IS 
shows that the components of the array have been pro- 
perly assigned to W. 
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6k After the command OUTPUT,! the user may continue to 
write information on file 1. Had this command been 
preceded or followed by the command REWIND 1, the new 
information would have been written from the beginning 
of the file and replaced the old information. As it 
is done here, the new information is added to what is 
already on the file. 

61 Under 6d, the text was written on the file in the form 
of a comment. Here it is written in the form of an 
alphanumeric string enclosed in quotation marks . The 

T?"D'DTTvT r P ^4- -,+-/-, m/-*-r->H- miicf Ko nooH T"h (=> 1^1^01^ P>T> foTTn TRI 
i_,iivj-inx oca. c^iiL^i ± l. .iii.v_auu j_/\- ^ i_. ^ v-i • -^j.j.w j^-w^— — 

EPRINT"TEXT" ,CR. The text will be read as a separate 
line. See 6r . 

6m The numbers written on the file are combinations of the 
numbers used previously. The components of the array 
have twice the value of the components in the previous 
array . 

6n The command DATE is used here to write the current 
date and time on the file. 

60 The file is saved under the name TEST, and file pro- 
tected . 
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6p The EQUIP statement assigns logical unit number 10 to 
the file named TEST. The routine COPY is used ^o get 
a printout of all the information on the file. 

6q Under OSCAR, the information on file 10 may be read 
following the command &INPUT 10. The read statement 
includes eleven variable names. Only 10 suitable 
pieces of information are written on the file. M 
cannot be assigned any value. 

6r This printout shows how the different variables have 

been assigned values from the file. A, B, C and F, G, 
H are single numbers. D and L are arrays. The first 
two texts written on the file as comments have been 
ignored. The last two lines of text have been read as 
alphanumeric strings to E and K. The date may serve as 
a useful label on the file. It is written in a form 
which cannot be read; it Is neither a legal number nor 
a string in quotation marks. An attempt to read it as 
M caused an error statement and M is left undefined. 



E XAMPLE 7 . Least square test 
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y- 



1.5 



4.0 5.0 



7.0 



10.0 



12.0 N: 

ii n 



We have a set of N measurements which should fit the 
expression: y = ax + b 

We measure x. and y. and want to determine a and b by least 

i u 

squares. The least squares criterion: 

2 

E(y - y -I ) = m i n 
J meas J calc 



leads to the following expressions for a and b: 



a = 



ExEy - NExy 
(Ex) 2 - NEx 2 



b 



ExExy - EyEx 
(Ex) 2 - NEx 2 



2 



How this calculation may be carried out using OSCAR is 
shown on the following pages . 
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Example 7 . Least squares test . 

#job number, user identification (CR/ 

#OSCAR (CR) 

OSCAR AT YOUR SERVICE V18 03/13/68 1605 

* LEAST SQUARES TEST (CR) 

X=ARRAY(1.5 4. 5.7.10. 12.) (CR) 

ILLEGAL ARRAY CONSTANT 

X=ARRAY(1.5 4. 5. 7. 10. 12.) (CR) 

Y=ARRAY(2. 2 . 2 . 5 3 . 5 3 . 4 . ) CR) 



T=ARRAY(1 11111) (CR 

X*T IS (ESC) 39.5 
X*X IS (feSC' ! 3 3 6.25 
X*Y IS (ESC- 126.0000 

DEN:: = f (X*T) + 2-6*(X*X) , ;?RINT DEN (ESC) -457.25P5 



y 



/ 



A::= f ((X*T)*(Y*T)-6*(X*Y))/DEN f ;PRINT A ;ESC; 0.1848P5 

V — ../ 

B: := f ((X*T)*(X*Y)-(Y*T)*(X*X))/DEN f ;PRINT B ESC) 1.6167P5 



= f A*X+B T ; DIFF: := T Y-YCALC ;CR) 



| Control Shift A \ 

#LOGOFF (CR] 

TIME 5. 7 9 ^""SECONDS. MFBLKS 00 



7a 



YCALC: := T A*X+B' ; DIFF : : = ' Y-YCALC ' CRJ 7d 

FOR 1 = 1 TO 6 PRINT X(I ) ,Y(I ) ,YCALC (I ) ,DIFF( I ) ,CR (CR) 

1.5 2. 1.8939P5 ~~" 0.1061P4 

4. 2. 2.3559P5 -0.3559P4 

5. 2.5 2.5407P5 -0.0407P3 , 7e 
7. 3.5 2.9103P5 0.5897P4 

10. 3. 3.4647P5 _o.4647P4 

12. 4. 3.8343P5 0.1657P4 

X=X%10;Y=Y%10 (CR) 

PRINT A,B (ESC) 0.184800437 1.61673045 

FOR 1 = 1 TO 6 PRINT 8 (I ) ,YCALC (I ) ,DIFF (I ) ,CR '.CR) 

2P10 1.89393111 0.10606880 

2P10 2.35593220 -0.35593220 7g 

2.5P10 2.54073264 -0.04073264 

3.5P10 2.91033352 0.58966648 

3P10 3.46473483 -0.46473483 

4P10 3.83433570 0.16566430 
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Comments to Example 7 

7a The easiest way to carry out the calculation is to 

define X and Y as two vector arrays. Each element in 
the array must be separated by a blank space or a 
comma. The error message occurred because some 
spaces were omitted in the type in of X. 

7b The array T is included to simplify the calculation 
EX. The two arrays T and X may be multiplied using 
the statement X*T. The result of this multiplication 
is the same as EX. According to the rules of matrix 
multiplication X * Y = I X ± * X ± and X * Y = I X ± * Y^. 
These calculations are included only as a check. 

7c A and B are defined as two functions according to the 

expressions given on page 2.31, replacing each summation 
by a vector multiplication. As the two functions have 
the same denominator, this is defined first and called 
DEN. The value of each function is calculated and 
printed. The elements of X and Y are decimal numbers 
assumed to have precision 6. A and B calculated from 
these numbers have precision lower than 6, indicated 
by P5. When a number with precision 5 is given with 
four figures only, as 0.1848P.5, the next figure is a 
zero, as may be verified below. 
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7d YCALC is defined as the function A X + B and DIFF 
as the difference between Y and YCALC. 

7e YCALC and DIFF are calculated and printed for each 
value of X . 

7f The same calculation may be carried out using higher 

precision. The sign % is used to change the precision 
indicated for X and Y. As a result of changing the 
precision on X and Y to 10, A and B are calculated 
accurately to <■■ figures. 

7g YCALC and DIFF may be calculated with higher accuracy, 
also . 
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EXAMPLE 8. Newton's method for solving f(x)=0 . 

A solution to the equation f(x)=0 may be calculated from 

a trial value x_ to successively better approximation using 
u 

the iteration formula 

x A n =x -f(x )/f'(x ) n=0,l 3 2 

n+1 n n n 

How OSCAR may be used to carry out this iteration process 

2 
for a function of the form f (x)=x -N is shown below. 



#job number, user identification (pR) 

#OSCAR 6r) 

OSCAR AT YOUR SERVICE V18 03/13/68 1628 

"iu cdU-DVD r^A;-u di im.dw-i.uim ■ o rnjiauu *vj.\; 

NEWT::='Y=X; X = X-F(X)/DF(X) ; PRINT Y ,X ,CR T \CR) 



8b 



LET F(X)=X+2-N ,iCR) 
LET DF(X)=2*X (C^7 N 
N=5; X=2. ; Y=0 '?CR) 




WHILE X NEQ Y DO NEWT 
2. 2 
2.25 2 
2.23611 2 
2.23607 ' 2 


£r) 
.2 5^ 
.23611 
.23607 
.23607 


N=5; X=2P14; Y=0 65) 




WHILE X NEQ Y DO NEWT 
2P14 2 


>JCR) 
. 2 51) 000000000 



r 8c 



2.2500000000000 2.2 361111111111 

2.2 361111111111 2.2 36067 97 7 9158 

2.236067977 9158 2.2360679774998 

2.2360679774998 2.2360679774998 



Control Shift A 



#L0G0FF CR; 

TIME 3. 7 2% SECONDS. MFBLKS 00 00 



20 f 
. O O 



Comments to Example 8 

8a NEWT is an abbreviation for a literal expression con- 
sisting of three statements separated by semicolons. 
The first gives Y the value of X , the second calculates 

X , -, according to the iteration formula on the previous 
n+1 

page, and the third prints the result. 



o 
8b The function F(X) = X - N is defined as the function 

F(X), and its derivative F'(X) = 2X as DF(X) . N is 

given the value 5, X is chosen as 2 . Y may be given 

to O 

any value different from X . 



The command: WHILE X NEQ Y DO NEWT (NEQ stands for 
"not equal to") causes the computer to compare X and Y; 
and to carry out the three statements of NEWT as long 
as the values for X and Y differ. X n+1 is calculated 
to a precision determined by the precision of X . 
See NEQ, page 3A.17. 
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EXAMPLE 9: The Runge-Kutta Method for solving differential 
equations 

Let the equation be Y f =F(X,Y) with starting point 

(X ,Y ) and interval length H. We v/ant to determine a 
o ■ o 

constant K so that Y +K becomes as good an approximation of 

Y(X +H) as possible. We use the following formula system: 
o r 



K = H F(X ,Y ) 

1 O G 

K = H F(X + 1/2H,Y + 1/2K, ) 

2 o o 1 



K.= 1/6 (K_ 1 +2K 9 + 2K ;:! +K l4 ) 



K 3 = H F(X q + 1/2H 5 Y Q + 1/2K ? ) 

is _ tt -n / \7 LTT \T J- v "\ 

1+ O O o 



J 



In this example, the instructions necessary to carry 
out the calculations have already been filed under the name 
RK. It remains for the user to define the equation he wants 
to evaluate, the starting point, the interval H, the last 
value of X, and a constant M, used to select the values of 
X for which the result will be printed (i.e. the result will 
be printed when M*X is a whole number.). 

Two examples are used to illustrate these calculations. 
The first is an evaluation of the equation Y ' = (X+Y) (X-Y) over 
three different intervals . The second is an evaluation of a 

set of two equations: Y i' " Y 2 ' Y 2 ' ~" Y 1* A solution to these 
equations is: Y =sin X, Y =eos X; the calculation gives a 
table of sine and cosine values. 
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Example 9. The Runge-Kutta method , for solving differential equati ons 



#job number ,use]? identification 
#EQUIP,1 = RJ< 'CR) 
#OSCAR <-CR) 



CR) 



OSCAR AT YOUR SERVICE V18 04/12/68 1627 



&C0NTR0L,1,TTY '.CRJ 

RKSTEP: : = ' K1 = H*F OTjY ) ; K2 = H*F (X+H/ 2 ,Y+K1/ 2 ) ;K3=H*F (X+H/ 2 ,Y+K2/ 2 ) ; RK2 ' 9a 
RK2: : = ! X=:X+H;K4 = H*F(X,Y+K3) ; Y = Y+SUM(K1 , 2*K2 , 2*K3 ,K4 ) / 6 f 
RKPROGRAM: := 'N=IP ! (XLAST-X) /H! ; FOR 1=1 TO N DO STEPANDPRINT f 
STEPANDPRINT: —'RKSTEP; IF FP(M*X)=0 OR I=N PRINT X%6,Y,CR' 



9b 



LET F(X,Y)=(X+Y)*(X-Y) 

X=0; Y=1P10; XLAST=1; H=.01P10; M = 10; PRINT X,Y,CR; DO RKPR CR" 

1P10 

0.1 C. 909409365 

0.2 C. 835785018 

0.3 0.777237583 

0.4 0.732726990 

0.5 0.701768385 

0.6 0.684229362 

0.7 0.680176422 

0.8 C. 689747815 

0.9 0.713041584 

1. 0.750015703 



9c 



XLAST=4; M=2; PRINT X,Y,CR; 
1.00000000000 

1.5 1 

2. 1 
2.5 2 

3. 2 
3.5 3 



DO RKPR CR, 1 
0.7500l£~f03 
120270939 
679458983 
261564983 
814215143 
346373000 



9d 



TIME CUT 

#TIME = 120 
#G0 fCR) 



£r) 



/■ 9e 



3.868209405 



X=0; Y=1P10; XLAST=-1; H=-.01P10; M=10;PRINT X,Y,CR; DO RKPR 



CR) 




0.1 



1P10 



■0.7 
•0.8 

■0.9 

i 

■ _L . 



110758849 
246983600 
417483014 
637325505 
933662509 
359549099 
032347608 
269162989 
313295747 



/ 9: 
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Example 9. Continued 

LET F(X,Y)=[A(1)=Y(2);A(2)=-Y(1);A] 



CR^ 



9g 



X=0; Y=ARRAY(0 1P10); H=.01P10; XLAST=PI/2; M=10; DO RKPR 

0.1 
(0.09983341664 0.995004165 

0.2 
(0.19866933078 0.980066578 

0.3 
(0.29552020664 0.955336489 

0.4 
(0.38941834228 0.921060994 

0.5 
(0.47942553857 0.877582562 

0.6 
(0.56464247335 0.825335615 

0.7 
(0,64421768719 0.764842187 

0.8 
(0.717 35609085 0.6967 6709 

0.9 
(0.78332690958 0.621609968 

1. 
(0.84147098476 0.540302306 

1.1 
(0.8912 0736002 0.45359612 2 

1.2 
(0.93203908593 0.362357755 

1.3 
(0.96355818538 0.267498829 

1.4 
(0.98544972996 0.169967143 

TIME CUT 



CR 



#TIME=180 
#G0 fcR) 
"T.5 
(0.99749498659 0.070737202 

1.57 
(0.99999968293 0.000796327 



Q"h 



See 9e 



Control Shift A 



#L0G0FF fcR) 

TIME 122.107 SECONDS. MFBLKS 0000 

# 
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Comments to Example 9 

9a The EQUIP statement assigns logical unit number 1 to 
the file named RK. The OSCAR control statement 
&C0NTR0L,1,TTY transfers the statements written on file 
RK to the OSCAR scratch area as instructions to be 
executed. TTY, which causes the statements to be printed 
on the teletypewriter, may be omitted. The instructions 
are written as four abbreviation statements, where the 
words RKSTEP, RK2 , RKPROGRAM, and STEPANDPRINT are 
abbreviations for four literal expressions. It should 
be noted that in the four words , only the first four 
letters are actually used by OSCAR. It is therefore 
possible to refer to RKPROGRAM as RKPR. 

9b The Instructions are written to evaluate the function 
F(X,Y); for the equation Y ' = (X+Y ) (X-Y) we use F(X,Y) = 
(X+Y)*(X-Y) . 

9c The starting point is chosen as X=0, Y=l (precision 10); 
the last value of X as XLAST=1. With M=10, the solution 
will be printed for the interval 0.1 in X. The value 
of H is chosen smaller than this to ensure the accuracy 
of the calculation. With M=10 and H=0.01 the function 
is evaluated 10 times for each value printed. 
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9d The calculation may be extended by redefining XLAST 
and leaving X and Y unchanged. M is changed to 2, 
which changes the interval of the printout to 0.5. 
With H left unchanged, the function is evaluated 5 
times for each value printed. 

9e Under OS-3, each user is given 60 seconds of computer 
time. TIME CUT indicates that 60 seconds have been 
used. This is actual computer time, not time at the 
console. The statement TIME=120 extends the time to 
120 seconds. The statement GO causes the computer to 
continue the calculation which was interrupted. 

9f The same function as above is evaluated in the interval 
X=0 to X=-l, starting again at Y=l and using H=-0.01. 

9g To evaluate the set of two equations: Y-. f =Y„ ,Y * =-Y, 

we define Y 1 as an array A with two components A(l) 

and A(2). The two equations are written as A(1)=Y(2) 

and A(2)=-Y(l) and F(X,Y) is defined as three statements 

enclosed in square brackets . 

9h The starting point is chosen as X=0 with two values for 
Y: Y-^sin X=0, Y 2 =cos X = 1 (precision 10). XLAST is 
tt/2. H and M have the same values as in 9c. 
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EXAMPLE 10. Calculation of interatomic distances for a 
molecular model. 




In this example, the. calculation of interatomic distances 
is carried out for a model of the molecule SOF. . 

The geometry of SOF is indicated in the diagram above. 
The cartesian coordinates of the atoms may be calculated from 
the three bond distances a, b, c, and the angles u and v 
using the following expressions: 

x.. = b cos u/2 

X 2 = X l 

X = C COS V 

x i+ = x 3 

x 5 = 

x„ = -a 
b 

The distances between two atoms i and j is calculated as 
DIS. . =~\| (x. - x. ) 2 + (y. - y.) 2 + (z. - z . ) 

1>] 1 ] 1 1 ! 3 

On the following pages, this calculation is carried out 
using OSCAR. 



*1 


= 


b 


sin 


u/2 


Z l 


= 





y 2 


= 




■ y i 




Z 2 


= 





y 3 


= 









Z 3 


= 


c sin v 


^ 


= 









Z H 


= 


" Z 3 


y 5 


= 









Z 5 


= 





y 6 


= 









Z 6 


- 
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Example 10. Calculation of interatomic distances for a molecular 
model . 

#job number, user identification (CR) 

#0SCAR (CR) 

OSCAR AT YOUR SERVICE V18 03/13/68 1633 

*T0 CALCULATE INTERATOMIC DISTANCES FOR S0F4 



DIS: := t SQRT((X(I)-X(J))i2+(Y(I)-Y(J))+2+(Z(I)-Z(J))t2)' 






FOR 1 = 1 TO 6 DO[X(I)=0;Y(I)=0;Z(I)=0] (CR) 



= f B*C0S(U/2) ' ; Y(l) : : = ' B*SIN(U/2 ) T 
= 1 X(±)< ;Y(2)::= f -Y(l) f (CR) 
= f C*C0S(V) ' ;Z(3): := f C*SIN(V) ! ^ 
= T X(3) f ;Z(4) : :='-Z(3) ' (CR 
= '-A' (CR) 



X(l) 
X(2) 
X(3) 
X(4) 
X(6) 

A=1.405; B=1.535; C = 1.595 (CR 
CONST=PI/180; U=120*CONST; V=81.8*CONST (CR 

(CR 




FOR 1=1 TO 6 PRINT X(I ) ,Y(I ) ,Z(I ) ,CR 

0.7675 1.32935 

0.7675 -1.32935 

0.22749P5 1.57869 

0.22749P5 -1.57869 



-1.405 



e 



LET PCI, J) BE PRINT I,J,DIS,CR 

1 = 1; FOR J = 2 TO 6 DO P(I,J) (CR) 
1 2 2.6587 
1 3 2.133315 
1 4 2.13332 
1 5 1.535 

1 6 2.546945 

1 = 2; FOR J=3 TO 6 DO P(I,J) (CR) 

2 3 2.1333lV^ 
2 4 2.13332 

2 5 1.535 

2 6 2.546945 

1=3; FOR J=4 TO 6 DO P(I,J) fci) 

3 4 3.15738 
3 5 1.595 

3 6 2.27097 



© 



JlOc 



10b 



/10cj 



SlOd 

) 



lOe 



lOf 



/10g 
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1 = 4; FOR J = 5 TO 6 DO P(I,J) '65) 
4 5 1.595 
4 6 2.27097 



;iog 

» continued 



1.4051P5 



do p(5,6) :cr) 



U=125*CONST; DO P(l,6) (ESCJ 1 




U=115*CONST; DO P(l,6) 



(esc) 



2.51435 
2.57834 



lOh 



Control Shift A 



#LOGOFF <pRi 

TIME 7. ITTj' SECONDS. MFBLKS 0000 



Comments to Example 10 

10a DIS is defined as the literal expression given on page 
2.42. 

10b Since many of the coordinates have the value zero, it 
is expedient to start by setting all coordinates equal 
to zero. 

10c The coordinates with values different from zero are 
defined as the expressions given on page 2.42. 

lOd The bond distances A, B, and C are given numerical values 
The angles U and V are given values in radians corres- 
ponding to 120° and 81.8°. 



lOe The cartesian coordinates of the atoms are calculated 
and printed. 
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lOf Use of the function P simplifies the calculation and 
printing of the interatomic distances . 

lOg To calculate all interatomic distances it is necessary 
to let I assume the values 1 through 5, and for each 
value of I, give J the values 1+1 through 6. 

lOh Here is shown the effect on a specific distance of 

change in one parameter. This, of course, can easily 
be expanded to include more distances and more para- 
meters . 



2.46 



Example 11. Data file created in OSCAR then transferred to a 
Fortran program . 

#EQUIP 5 1£=FILE CR) 
# OSCAR iCR) 



OSCAR AT YOUR SERVICE V36 08/07/68 1033 
&OUTPUT,10 (CR. 

& ^ — Ml, 

FOR I-=l TO 100 PRINT (PI I)%11,(E I)%11,(2PI4 I)%11,CR .CR / lla 

&OUTPUT,10 (CR) 



& Control Shift A 



# REWIND, 10 p£^ [ Hb 

#SAVE,10=DAT (CR) J 

#EDIT (CR) W i 

^ t lie 



]TAPE (CR) 



PROGRAM DEMO 
DIMENSION B(100,3) 

1 FORMAT (I4,3E18.10) 
IC = 

DO 2 1=1,100 
B(I,1)=READIN(10,IC) 
IF (IC.EQ.-l) GO TO 5 
B(I,2)=READIN(10,IC) 

2 B(I,3)=READIN(10,IC) 
1 = 101 

5 1=1-1 

DO 6 J=1,I ; 

6 PRINT 1,J,B(J,1) ,B(J,2) ,B(J,3) 

END , lid 

FUNCTION READIN(L,I) 
DIMENSION C(17) 

1 IF (I.LT.0) 1=0 I 
IF (I.EQ.0) READ(L,2)C \ 

2 FORMAT (17A8) j 
GO TO(4,3) EOFCKF(L) 

3 READIN=SCANIN(C,I,13 6) 
IF (I.LT.0) GO TO 1 
RETURN 

4 I = -l 

END ; 

FINIS 
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IESC) 
] OUT, DEMO (CR) 



] FORTRAN, I =DEMO,R (CR) 



lie 



NO ERRORS FOR DEMO 

NO ERRORS FOR READIN 
RUN 



r nf 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 



3.1415926536E 00 2, 

9.8696044011E 00 7, 

3.1006276680E 01 2, 

9.7409091035E 01 5, 

3.0601968479E 02 1 

9 . 6138919357E 02 4 

3.0202932278E 03 1 

9.4885310158E 03 2 

2.9809099333E 04 8 

9.3648047475E 04 2 

2.9420401797E 05 5 

9.2426918151E 05 1 

2.9036772706E 06 4 

9.1221711817E 06 1 

2.8658145969E 07 3 

9.0032220839E 07 .8 

2.8284456359E 08 2 

8.8858240305E 08 6 

2.7915639496E 09 1 

8.7699567960E 09 4 

2.7551631843 E 10 1 
8.65560041 I BREAK 



7182818285E 
3890560988E 
0085536923E 
4598150032E 
4841315910E 
0342879 349E 



09663315 
98095798 
10308392 
20264657 
98741417 
62754791 
42413392 
20260428 
26901737 
88611052 
41549527 
56599691 
78482300 
85165195 
31881573 



84E 
70E 
77E 
95E 
15E 
42E 
01E 
42E 
25E 
05E 
54E 
36E 
96E 
40E 
45E 



00 
00 
01 
01 
02 
uz 
03 
03 
03 
04 
04 
05 
05 
06 
06 
06 
07 
07 
08 
08 
09 



2, 
4, 
8, 
1. 
3, 

D 

1 

2 
5 
1 
2 
4 
8 
1 
3 
6 
1 
2 
5 
1 
2 



00000 
00000 
00000 
60000 
20000 

1 1 r\ r\ c\ r\ 

1UUUU 

28000 
56000 
12000 
02400 
04800 
09600 
19200 
63840 
27680 
55360 
31072 
62144 
24288 
04857 
,09715 



00000E 00 

00000E 00 

00000E 00 

00000E 01 

00000E 01 



00000E 
00000E 
00000E 
00000E 
00000E 
00000E 
00000E 
00000E 
00000E 
00000E 
00000E 
00000E 
00000E 
60000E 
20000E 



02 
02 
02 
03 
03 
03 
03 
04 
04 
04 
05 
05 
05 
06 
06 



Hg 



# 



BREAK RELEASE 
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Comments to Example 11 

11a The command &OUTPUT,10 will cause any following 
outputs to be written on logical unit ten. See 
&OUTPUT, page 3B.7; see also, Part One : Usage of 
Special Keys and Symbols (%). 

lib The OS- 3 control mode commands REWIND, LUN and SAVE, 

LUN=NAME are used to save the text under the name (in 
this case) DAT. (See Reference 5, pages 31.01 and 33.01.) 

lie The OS-3 command mode, EDIT, was entered in order to 
input the Fortran program. The EDIT command TAPE 
allows the user to enter the program from a paper tape. 
(See Reference 4, page 41.01.) 

lid The main program DEMO, enters data through subprogram 

READIN which employs a free format method. This allows 
the transfer of data from OSCAR, where data is printed 
in free form, to a Fortran program where data Is 
confined to a specific format. 

The function subprogram, READIN, calls SCANIN which is 
a free format BCD to floating point converter written 
by Walt Pawley. (See Reference 12.) 

lie The EDIT command, OUT, DEMO, places the program in 
the file directory under the name DEMO. (See 
Reference 4, Dages 2 8,01 through 29.01.) 
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The function subprogram, SCANIN , is available to all 
Fortran programs . 

llf The OS-3 control mode command, FORTRAN , I = DEMO ,R 

causes the program in file DEMO to be compiled and 
run. (See Reference 5, page 17.01.) 

llg The program results were written in the specified 

format (14 , 3E18 .10) . One hundred rows of data could 
have been listed (100 values of (PI+I)%11, etc., 
were computed); however, execution was terminated by 
depressing the BREAK KEY. 



[NOTE: OSCAR printout can occur in a format which indicates 
the precision. When this occurs, the procedure in 
this example cannot be used. For example, a Fortran 
program using SCANIN cannot use the following out- 
puts from OSCAR: 

1 = 1, 

(PI+I)% 3 is 3.14P3 

(PIiI)% 4 is 3.142P4 

(PI+I)% 5 is 3.1416P5 

(PIfI)% 15 is 3.1415926535898P15 
(PI+I)% 20 is 3.1415926535898P20 

The usable range is % 6 to % 14 : 

(PI+I)% 6 is 3.14159 

(PIfI)% 14 is 3.1415926535898. 

The FFIN function in the OS-3 system ignores the 
letter P without disrupting the input scan. (See 
Reference 9 . ) 



OSCAR: A User's Manual With Examples 
PART THREE 

SECTION A: FUNCTIONS AND OPERATORS 

These words from the OSCAR language 
have been arranged in alphabetical order. 
Each word is given with its definition, 
examples of usage, brief explanatory notes 
regarding usage procedures and, In some 
cases, further references are included. 



3A.0 
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EXAMPLES OF FUNCTIONS AND OPERATORS 



ABS The ABSOLUTE value function, 

EXAMPLE 1 (arguments constant) 

ABS 5 IS (ESCL— s 5 

ABS (-4) is v —f:sc) / — s.4 

ABS ( + 3. -4) IS— MESC). 1 

ABS (-32.567) IS V jESCJ 32.567 

EXAMPLE 2 (arguments variable) 

X= -6; Y= +44.7378; ABS(X*Y) IS (65) 



EXAMPLE 3 (arguments complex or array variables) 

X=AE.RAY(3. 4.) 

!X! IS 5 -/^\ 
ABSC3. -41) IS IESC) 5.000000 



[NOTE: Complex numbers are treated by OSCAR as 
arrays . ] 

X=ARRAY( (3. 3.) 

(3.^3.) ) 

PRINT X, !X! (£R) 

[ NOTE : ABS or the symbols ! ! ] 

( (3. 3. ) 

(3. 3. ) ) 6.0000000 



ACCEPT Same as READ. See page 3A.2 5 of this section. 

AND A LOGICAL operator. See GTR, LSS. 
EXAMPLE 1 

A=4 GTR 3; B=3 LSS 5; A AND B IS 'CR 
TRUE 
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EXAMPLE 2 



X = 4; Z=2.4; Y=3.1; W= . 

IF X > Y AND Z < W TH".!N PRINT "YES" ELSE 

PRINT Z 

2.4 



EXAMPLE 3 



A=TRUE; B=TRUE; A AND B IS CR' 
TRUE 

B^FALSE; A AND B IS^ (ESC FALSE 
A=-6.59 LSS -2.4 iCR ^ 

A IS ESC) TRUE- N 

A AND'BVIS (ESC; FALSE 

B IS (ESC) '^•-'"' FALSE 



ARRAY This word defines an ARRAY constant. (See Reference 7, 

EXAMPLE 1 

A=ARRAY(1 2 3 4 10) <CR» 
B=ARRAY(1 3 2 5 6) CRT' 
PRINT A+B (ESC) (2 S"5 9 16) 

EXAMPLE 2 

A=ARRAY((6.4 3.2 -7.59) (0 1.4 ... 
10)); Z=ARRAY ((6.4 3.2) (2.5 -2 ... 
) (-4.5 11)); PRINT A*Z 

( (83.115 -69.41 ) 

(-41.5 107.20000 ) ) 

[ NOTE : Three periods (...) will cause a carriage 
return and line feed without ending the 
line . ] 



ATAN This command for the arc tangent is reserved 
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BY 



This identifies the increment value in a FOR statement 
(See Reference 7, page 4, D.) 



EXAMPLE 1 



CZS 



LET A(J)=J*PI*2 vCR; 

FOR J=10 BY 1 TO 15 PRINT J ,A( J) , J + 2 ,CR 

10 62.831853071796 100 

11 69.115038378976 121 

12 75.398223686156 144 

13 81.681408993334 169 

14 87.964594300514 196 

15 94.247779607694 225 



(CR) 



EXAMPLE 2 



"1D1 



A=ARRAY((6.4 3.2 7)(0 1.4 10)) vCR) 

FOR -J = 2 BY 4.5 UNTIL 3 5 PRINT J^7C,J,CR fcR! 



((128. 64. 140 ) 
(0 28. 200 ) ) 

((156.8 78.4 171.5000 
(0 34.3 245.0000 ) 

((185.6 92.8 203.0000 
(0 40.6 290.0000 ) 

((214.4 107.2 234.5000 
(0 46.9 335.0000 ) . 



20 



24.50000 



29.00000 



33.50000 



CLEAR This word frees previously defined variables. The 
emphatic assignment ( : : = ) clears variables before 
assigning values to them. Clearing is not usually 
necessary; it need be used only when the previous con- 
tent of a variable is a literal expression or a procedure 
See pages 2.11, 2.12, item 4b. 
(Also, See Reference 7, page 6, K.) 
EXAMPLE 1 

X = 4; Y=5; CLEAR X / CR) 
PRINT X ESC [] '"'"' 



3A. 



[NOTE: Brackets mean undefined.] 

EXAMPLE 2 

A: :=;-/*RAY(3I 3.21. 4.5'-3) CR' 

[NOTE: I:i this example, A is cleared before 
biing set equal to ARRAY.] 

B=A;<:LAR\EA * 

[ NOTE : A line beginning v.ith or ended by * is 

ignored. For this reason it can be used 
to erase a line with errors . ] 

B=A;':LA\EAR A; PRINT A,B (CR) 

[NOTE: Eackslash, shift L, erases one character.] 

[] 

(0+31 0+3.21 4.543 ) 

EXAMPLE 3 

J = 4 (CR) ^ 

K=4; L&T A(K)^*PI*2 ^CR A 
PRINT A(K) (CR) 

25.1327«rf228718 

CR=1.64 leg) 
A=CR*3 (CR; ,-. 
PRINT A,cV (cr) 
PRINT ( A ) "~ 

ARGUMENT IS PROCEDURE CALL 
K *PI ARITHMETIC OPERAND (LEFT) 
WHAT? 

CLEAR A; A=CR*3 \CRy 
PRINT A,CR (CR) 

4.92 "^1.64 

[NOTE: In this case, A must be cleared before it 
can be assigned another value.] 



COS The cosine function. See pages 2.4-2.5, part 2c 

EXAMPLE 1 

COS (1.) IS ESCK 0.54030P5 
COS (-4.3) IS "r^SC; -0.40080P5 



3A 



COS (10*1) IS lESC 
COS ( TEMP ) ^-^ 

ARGUMENT IS WHAT? 

[NOTE: Cosine of a complex number is presently 
undefined. ] 



CR This is a spec5_al variable. Initially, it has the 

meaning — carriage return and line feed. See pages 
2.1 and 2.3, part lg. 

(See also, Reference 7, page 5 item g.) 
EXAMPLE 1 

A=3.14; B=2.6; PRINT "A=*\ A ,CR, "B= " ,B ,CR fcR 
A= 3.14 

B= 2.6 

EXAMPLE 2 

CR=1.64 @ 
A=PI (CR) ~ ^ 
PRINT A,CR ;CR; 

3.14159^6535898 1.64 

PRINT A,CR, CR (cr) 

3.14159265^5898 1.64 1.64 

CLEAR CR CR) 
PRINT A,CR,A' t£) 

3.1415926"535898 [] 3.1415926535898 



DENOM The function for the denominator of a rational number. 

EXAMPLE 1 

DEN0M(4/8) IS (CR) 
DENOM ( TEMP ) 

OPERATION NOT IMPLEMENTED 

[NOTE: The function is not presently implemented.] 
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DIV The integer division operator. 

EXAMPLE 1 

6 DIV 3 IS CR^ 

NOT IMPLEMENTED 



DO This word causes the expression that follows it to be 

executed. See Example 5, page 2.15, items 5a and 5d . 

(See also, Reference 7, page 4, D.) 

EXAMPLE 1 

LET PREPRINT A,B,C (CR; 
A = l; B=2i-^C=3.6 ',CR' 
DO FR (CR- 

1 2' 3.6 

EXAMPLE 2 (See Reference 7, pages 7, 8, parts 
N and . ) 

30.1: X=32; Y=48.999 fcR^ 

3 0.2: YX=Y*X; XX=X**2; PR^NT YX , " YX" CR 

31.2: PRINT "XX = ",XX (CR) 

DO PART 3 (CR) 

1567.97 X.YX 
DO STEP 31 (CR) 
XX = '"'10 24 



A special variable, E, the base of the natural logarithm 

system. 

EXAMPLE 1 

PRINT E fesq) 2.7182818284590 
LN E IS 'tsC. 1.0000000000000 



ELSE This word occurs in a conditional statement. (See 
Reference 7, page 4, C.) 
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EXAMPLE 1 



Z=4.231; IF Z GTR PI THEN PRINT PI ELSE PRINT Z CR! 

3.1415926535898 
Z =1.2 31; IF Z > PI THEN PRINT PI ELSE PRINT Z CR ; 

1.2 31 

Y=6I (CR) 

X= f IF J^ Y THEN PRINT I ELSE PRINT Y+Z' 

+ 11 



ENTIER The .function for the greatest integer less than or equal 

to the argument . 

EXAMPLE 1 

ENTIER (34.99999999) IS 34 
ENTIER (44.000001) IS 44 
ENTIER (-14.3) IS -15 



EP 



The function for the exponent part of an expression 
EXAMPLE 1 



[NOTE 



X=3 60. 

EP X IS ICR) 

EP ( X ) 

OPERATION NOT IMPLEMENTED 

NP X 10 EP = ARGUMENT 
EP 360. - 2 
NP 360. = 3.6 

3.6 X 10 2 = 360 ] 



EPRINT The emphatic print. This command prints the actual 
form of the expression or quantity. 
EXAMPLE 1 

EPRINT 31435 (S) 

31435 " 
X: :=PDL (2 a.. 18) (CR 
EPRINT X (CR) 

PDL . . . 

(2 3 18) 
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[ NOTE : F r use of PDL , see page 3A.21.] 
PRINT X -CR 



EQ A relational o;.)srator equal to. This command cannot 
be used to set a variable equa] to a value. It is 
used only as a test for equality. See page 2.32, part 7c 



EXAMPLE 1 



Y=TRUE; X^FALSE; Z^FALSE; Z EQ X IS iCR 

TRUE ,-— x 

X EQ Y IS fesC' FALSE 

Y EQ Z IS (ES-d FALSE 



EXP The exponential function E to the power. E is defined 

as I . 7±8 ZOlo ZOH . Uee Keicrcntc /, pa 6 e u, j-l.^^ ^-.j 



2.7182818284604 
5.8346174252747E14 
7.3890560989341 
2.7182818284604 



If Y is a variable which represents a literal expression 
then the statement Z=EXPR Y will transfer whatever Y 
contains to Z. The statement Z=Y would transfer the 
value of the expression to Z. 

EXAMPLE 1 

Y= f PRINT A 5 B^' *CR,' 
X=EXPR(Y) CR; _ 
A=l; B=2I; C = -17 . 3 CR 



EXAMPLE 1 


'ESC! 


EXP(l) IS 


EXPC34) IS 


"ESC 


EXP(2) ISx 


;ESG/ 


E IS (ESC) 


'■•■-. y 



X E£ 

1 )^, 

DO Y (ESC) 

1 0+21 -17.3 



DO X (ESC) 

^0+21 -17.3 
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Z = Y 65) 

1 0+21 -17,3 
Z«-Y ASSIGN WHAT? 

EXAMPLE 2 

X = 7 9 @ 

LET Y = X**2+34J±5 fCP ' 

XX=EXPR(Y) ^(CR^ 

PRINT XX (ESC/" 6 27 5.4 500 

[ NOTE : A print statement has no value.] 

PRINT Y (ESQ 6275.4500 



FALSE The logical constant (Boolean). (See Reference 7, 

page 3, Expressions.) 

EXAMPLE 1 

X=3.1; Y=3.2; LET B1 = X EQ Y ;CRj 
Bl IS pR) 

FALSE / — N 

PRINT X 9 Y-B1 (ESC) 3.1 3.2 FALSE 

Y— 3 . 1 \CRJ /"x' 

PRINT X,^B1 (CR) 

3.1 3.1 ^"TRUE 

EXAMPLE 2 

X-3.46 3; Y=3.6; LET Q = X NEQ Y (CR) 

LET.R = X LSS Y^-n(CR) 

Q AND R IS XeSC^ TRUE 



Q OR R IS (ESG< TRUE 

Q XOR R^IS V ESCJ FALSE 

Q IS (ESC) ^—--TRUE 

R IS (ESC) TRUE 

P = FALSE- 7 £RK 

Q AND P IS ^SC) FALSE 

Q OR P IS (eSCT TRUE 



FOR The beginning of a FOR statement. See page 2.1, part lj 
(See also, Reference 7, page 4,D.) 
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EXAMPLE 1 



FOR Z = 5 BY 2 UNTIL 9 PRINT Z,Z+2 CR ; CRj 
5 2 5 
7 49 
9 81 



EXAMPLE 2 



FOR Z=15.349 BY .2 UNTIL 15.9 PRINT Z,Z*2 ? 
15.349 3616.1 
15.549 3759.3 
15.749 3906.24 



FP The function for the fraction part of a number. See 
IP. 

EXAMPLE 1 



n t> 



■Cs 



FP (6.999) IS (CR) 
.999P5 



FP (-34.567) IS (ESC) -0.567P4 



GCD The function for the greatest divisor of the 
arguments. 

EXAMPLE 1 



GCD (20,40,45) IS 1QRJ 
20 GCD 40 

OPERATION NOT IMPLEMENTED 



;EQ A relational operator meaning greater than or equal 
to (>=). OSCAR will also accept the symbols >=, 
EXAMPLE 1 

X = 10; Y = 12; WHILE Y GEQ X SET X = X+1 -CR) 

PRINT X (ESq 1-: 
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EXAMPLE 


; 2 


9. 


0: 


9. 


1: 


10. 


2: 



Z = 10.0 ,CR _ 

Y = E; X = 0;'TRINT Z CR'' 
Z=Z-1; £=2*Y*Z; PRINT" "X" ,X ,CR , Z ,CR 
DO PART 9 (CR; 
10. 



;cr 



WHILE Z GEQ 7 . 5 DO STEP 10.2 
X 48.929P5 

9P5 
X 4-3.1493P5 

8P5 
X 38.056P5 

7P5 



,CR^ 



GO 



Same as GO TO and GOTO. 



GTR 



A relational operator, greater than. OSCAR will 

accept the symbol > or the letters GTR. 

EXAMPLE 1 

X=4.1; Y=3.1i_IF X GTR Y PRINT "X" ELSE 
PRINT "Y" (CR) 
X V ' 



EXAMPLE 2 

10.1 
10.2 
11.6 
11.7 



DO PART 10 



X = 10; Y = 102.3.9 (CRJ 
XX = X+Y; Y=2*XX (CR) 
PRINT "Y",Y (CR) ^ 
SET Y = -:UDO PART 11.6 



(CR) 



(CR^ 



IF Y GTR 219.1^ DO STEP 11.6 ELSE DO STEP 11.7 (CR) 



Y 



224.78 



A special variable. I's initial value is II. 1I=SQRT(-1) 9 
and also 1I-1J. 



o /i. • -L £. 



EXAMPLE 1 

SQRT(-l) IS (ESC) + 11 

EXAMPLE 2 

X=32**2; Y=16.4+X*I; PRINT "Y= M , Y (CR) 
Y= 16.4 + 10241 "". 



PRINT Y*Y (ESC) -1.048307040E6 + 33587.21 



IF The beginning of a conditional statement or expression. 
(See Reference 7, page 4, C.) 
EXAMPLE 1 

Z=6; Q=i: IF Z GTR Q THEN Y^Z ELSE Y = Q; PRINT... 
Y**2 (CR) 
4 3/S6 

[ NOTE : GTR means greater than (>), See GTR.] 

EXAMPLE 2 

9.8: X = 6*I; Y = 6. 00001*1; PRINT X 5 Y (CRj ^ 

10.2: IF X EQ Y DO STEP 11.3 ELSE DO STEP 12.4 CR 

[ NOTE : EQ tests for equality. See EQ . ] 

11.3: X=X+12; PRINT X (CR)^ 
12.4: PRINT %3T EQUAL "ICR) 
DO PART 9 (CR) 

+ 61 + 6^00011 
DO PART 10 (CR) 
NOT EQUAL w 



IM The function for the imaginary part of a complex 
number. See RE. 
EXAMPLE 1 



IMC12.3 + 21) IS tfSCj 
IM ( TEMP ) ^-^ 

OPERATION NOT IMPLEMENTED 
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IP 



The function for the integer part of a number. See FF 
EXAMPLE 1 

IPC6.9878) IS (ESC 6 



IS 



A command which means print the value of the preceding 
expression. 

EXAMPLE 1 

3.45 + 24.9 + 23 IS (ESq) 51.35 



J 



A special variable initially equal to I . I is equal 
to S^RT^— 1) and Is used to represent complex numbers 
See I . 



KIND 



The function indicating what kind of quantity the 
argument is. (See Reference 7, page A. 8.) 
EXAMPLE 1 

KIND(SQRTC-l)) IS (ESC) 



KINDCTRUE I\) IS (ESC) 
A: :=ARRAY(23 45 6.4 



COMPLEX 
BOOLEAN 



KIND A IS (ESC) ARRAY 

[ NOTE : Logical constant TRUE; see TRUE, page 3A.29.] 

[NOTE: Backslash, shift L, causes one character 
to be ignored . ] 



A relational operator meaning - 

OSCAR will also accept the symbols <=. 



less than or equal to. 
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EXAMPLE 1 



LET A=3 LEQ Y; Y = 4; A IS ! CR 
TRUE 



EXAMPLE 2 



WL=3. 495*63. 4; ZL=32*PI*70 . 295 P^ 

IF ZL LEQ WL PRINT WL-ZL ELSE PRINT "NOT EQUAL CR 

NOT EQUAL 



LET The beginning of a literal expression or procedure 

definition. See pages 2.1 and 2.3, part le . 

(See also, Reference 7, page 5, H.) 

EXAMPLE 1 

Y = 3; X=6I; LET --F(X) = Y+X+2.3 iCR) 

PRINT F(4) 'ESC) 9.3 

PRINT F(X) ESC; ^5-. 3 + 61 

PRINT X,Y,F(3.4-:f (ESC) + 61 3 8.7 

[NOTE: The value for X found in F(X) is used.] 

EXAMPLE 2 

LET G(X,Y)=X**2+Y** v 2 + 329.14 CR 

LET H(A,B)=A+B CR; ^ 

YYY='PRINT "G(X,Yr+H(A,B)",G(X,Y)+H(A,B) ,CR T CR 

[NOTE: YYY='PR . . . f is a literal expression. The 
statement means make YYY an abbreviation 
for the expression 'PR ....'] 



CLEAR X,Y,A,B (CR ^ 
X=2.9; Y=L4; A=1T; B=3I ;CR N 
DO YYY (CR) 
G(X,Y)+H(A;'B) 350.11+31 



EXAMPLE 3 



:\ 



LET H BE PRINT £*Y,CR CR 
X=2.9; y,= 3.4 tit) 
DO H CR, 

2 . 9 3 . 4 
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LN The function for the natural logarithm, i.e. base e. 
EXAMPLE 1 



LN(4) IS (ESC/ 1.38629436112140 

LN 3.3 IS (ESC: 1.19 3 9 21 

v y 

LNC-14.5) IS £Rj 
LN ( TEMP ) ^ 

ARGUMENT LEQ ZERO 

LN E IS -ESq) 1.0000000000000 
PRINT E tesc; 2.7182818284590 

LN( .0000000009) IS (CRV 
-20.828626 



LOG Same as LN. 

EXAMPLE 1 

L0G(4) IS (ESC; 1.3862943611240 

LOGT The function for base ten logarithm. 
EXAMPLE 1 



LOGT 4.2 IS /-(ESC) 0.6232499 

LOGT 4 IS fESC^ 0.60205999132976 

LOGT 10 IS @ 

1.00 00OD0 0M0 
LOGT (-4.56) IS fa; 
LOGT ( TEMP ) 

ARGUMENT LEQ ZERO 



LOGT 100 IS ^SCj ^2-. 0000000000000 
LOGT .OOOOOOOOOl^IS (ESC) -10.000001 



LSS A relational operator meaning less than. OSCAR will 
also accept the symbol < . 
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EXAMPLE 1 



X=3; Y = 4; A= 'X LSS Y f ; A IS (.CR; 
TRUE 



EXAMPLE 2 

(PR : 



9.0: Z: :=10.0 ^-4CR, 
9.1: Y = E; * 6py 

[NOTE: * causes the entire line to be ignored.] 



9.1: Y = E; X = 0; Z = Z-1 (CR) ^ 

10.2: Z=Z+1; X=2*Y*Z; PRfNT "X",X,CR fCR) 

DO PART 9 65) ^ 

WHILE Z LSS Iff DO STEP 10.2 (CR; 

X 54.3656 

X 59.8022 

X 65.2388 

X 70.6753 

X 76.1119 



MAX The function for the maximum of arguments . 

EXAMPLE 1 

MAX(45,34,8) IS^(eSC) 45 
MAX (101, 1) IS (CR)^-"' 
10I# MAX I W 

OPERATION NOT IMPLEMENTED FOR ARRAYS 

EXAMPLE 2 

X=4.23; Y=15.04 (CR) 
MAS * 

[NOTE: * causes the entire line to be ignored.] 



MAX(X,Y) IS (CR) 
15.04 

MAXC-89, .98,23.34,567.45) IS lESC) 567.45 
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MOD The Modulus operator meaning — the remainder of the 
division . 

[ NOTE : Operation is not yet implemented.] 

EXAMPLE 1 

8 MOD 3 IS (CR; 
SYNTAX ERROR,"" 

[ NOTE : 8 MOD 3=2 

9 MOD 2=1] 



NEQ A relational operator meaning — not equal to, 
EXAMPLE 1 



LET B=3 NEQ^Y.; Y=5 (CR) 

b is Yes® tMe 



EXAMPLE 2 



Y = TRUE; X=FALSE; Z=FALSE; Z EQ X IS i£R} 
TRUE 

[NOTE: See EQ , page 3A.8 of this section.] 



X NEQ Y IS (CRj 

TRUE 

X NEQ Z IS (ESC) FALSE 

Y NEQ Z IS (ESC) FALSE 

EXAMPLE 3 

X=14.5-; Y=15,Q4; PRINT Y (pi) 

15.04 ~ . 

LET YYY=X*X + Y*X ICRj 
LET XXX=Y*Y + X*Y ICR) 
DO YYY; DO S\XXX (C&7 

[ NOTE : The backslash, shift L, causes one character 
to be ignored.] 

IF XXX NEQ YYJ PRINT "NO SOLUTION" ,CR, "XXX" 5 XXX ,CR, 

"YYY",YYY (6r) 

NO SOLUTION 

XXX 444.282 

YYY 4 2 8.33 
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NOT A Unary logical operator, (the opposite). 

EXAMPLE 1 

LET A=4 GTR 3; A IS (pS) 

[NOTE: See GTR (>), page 3A.11 of this section.] 

TRUE 

NOT A IS (CR; 

FALSE v ~ /-— n 

NOT FALSE IS (ESC) TRUE 

EXAMPLE 2 

X = 14.5; Y = 15.04 (CR) 
LET B = X EQ Y (CR, "'"' 

[ NOTE : See EQ , page 3A.8 of this section.] 

PRINT "NOT B", NOT B,CR,"B",B ^ 
NOT B TRUE 
B FALSE 



NP The function for the number part of a variable with 
an exponent (compliment of EP) . 
EXAMPLE 1 




[ NOTE : NP(IOO) = 1 
EP(IOO) = 2 

NP X 10^ P = ARGUMENT 

1 X 10 = 100 ] 

NP ( TEMP ) 

OPERATION NOT IMPLEMENTED 



NUM The function for the numerator of a rational number. 
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EXAMPLE 1 



NUMC10/3) IS 'OR) 
NUM ( TEMP ) 

OPERATION NOT IMPLEMENTED 



A special variable. The letter has the initial value 
of zero . 

EXAMPLE 1 

PRINT (ESCJ 

OR A logical operator, the inclusive OR. (If one or the 

ULUCi' J.O LI'UC, LJlCil 111C ailDWCi.' J-O 1IVUU. / 

(See Reference 7, page 3, Expressions.) 

EXAMPLE 1 

LET A=3 GTR U-;-xLET B=3 GTR 2 @ 
A OR B IS ESC), TRUE 
A AND B IS lESC N i FALSE 



[ NOTE : See AND, page 3A.1 of this section, 
or see XOR, page 3A.31.] 



A IS (£SC) TRUE 
B IS ESC; FALSE 

EXAMPLE 2 

Y = l.l; X=2.2; D=4.^R=3.3 CR) 

LET Z = Y GTR X (CR) 

LET Q = DGTR R (CR; 

SYNTAX ERROR. MISSING OPERATOR 

[ NOTE : Typing error, DGTR ... should be D GTR. 

The user must include space between variable 
and logical operator.] 

LET Q = D GTR R (CR) 
LET P = R GEQ X (CR) 

[ NOTE : See GTR (>), page 3A.11 and GEQ (>=), page 
3A.10 of this section.] 
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EXAMPLE 2 (continued) 

Z OR R \\P IS--, 

Z OR Q IS XSC; 

Q OR P IS ''ESC?; 



;ESC) 



TRUE 
TRUE 
TRUE 



[ NOTE : The backslash, shift L, causes one 
character to be ignored.] 



Z IS 
P IS 
Q IS 



(ESC) 
fESCi 

(esc; 



FALSE 

TRUE 

TRUE 



Z AND P IS 



FALSE 



PART 



This identifies the group to be executed. 
EXAMPLE 1 



9.1: X=l 
9.2: Y=2 



<CR, 
feR> 



10.6 
10.7 
10.9 



X = 44.;~P£INT "X" ,X,CR '£$) 
Y=3.4 'CR) 
X = 6.9 foO 



DO PART 9 'CR) 
PRINT X,Y CFO 

1 
DO PART 10 
X J^4. 

PRINT X,Y CR; 

6,9 



d, 



3.4 



EXAMPLE 2 



30.1 



30.2 
31,2 
31.3 



X=32; Y = i48.999 CRj _ 

YX=Y*X; XX=X**2; ?RINT "YX" ,YX CR) 

PRINT "XX=",XX CRj A. 

PRINT "STEP 31.3 JUST EXECUTED !CR; 



DO STEP 31.3 CR) 

STEP 31.3 JUSJL^XECUTED 

DO PART 3 CRJ 

YX X 567 - 97 

DO PART 31 CR) 

XX= V 1'024 STEP 31.3 JUST EXECUTED 



(See Reference 7, pages 7 and 8, parts N and 0.) 
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PDL This defines push-down list constant. It can be used 
to create a storage Push List. 
EXAMPLE 1 

X=PDl(1 2 3 17.4); X IS CR; 

17.4 ^ 
POP X (CR) 

X IS 
POP X 

X IS 
POP X 

x is fesc) 1 

POP X TRl 



X IS (ESCj [] 
[ NOTE : Brackets mean undefined.] 

EXAMPLE 2 

X::=PDL(10I -16.54372 1932) (c5) 

X IS ^ESC) 19 3 2 

POP X \ESC)( 

X IS {E&C) -16.54372 

PUSH X x— s @ 
X IS (e§c) '[] 
X=3 3 '^ pf 




[ NOTE : See PUSH.] 

11.3: Y = X*64.3;^RINT "X" ,X ,CR, "Y" 5 Y ,CR (CR; 
DO STEP 11.3 (CR) 
X 33 

Y x-2121.9 
POP X /ESCj 

X IS (ESC/ -16,-54372 
DO STEP>1'1.3 (£SC) 
X (ESCJ -16>54372 

Y (ESC) -1063.76 

POP X; DO STEP 11.3 '.CR 
X 0+1 01 

Y 0+643.1 ^ 
POP X; DO STEP 11.3 CR: 
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EXAMPLE 2 (continued) 

DOSTEP ( 11.3 ) 

X *64.3 ARITHMETIC OPERAND (LEFT) 
WHAT? 

[ NOTE : When X was popped the last time it left 

X undefined. This resulted in the question 
asked by the computer.] 




X IS ' ESC' [] 



PI A special variable whose initial value is ?r . 

EXAMPLE 1 

PRINT PI (CR) 

3.14S326535898 

EXAMPLE 2 

LET CIRC=2*PI*R ICRl. 

LET AREA=PI*R**2- N XR) 

R = l; DO CI£C 'CR) '"' 

DO AREA (CR) y 

PRINT AREAV"CIRC 5 AREA*R*4/3 : CR? 

3.1415 9 2 65 358 98 6 '.'28 318 5 30717 96 

4.1887902047863 

EXAMPLE 3 

LET AREA=2*PI*R**2 (CR) 
R=4; PRINT AREA 

100.53096491487 
R=3. 678645; PRINT AREA 

85.02676 
R=1.99 2; PRINT AREA 
24.9321 



POP This word pops up each variable following. It is 

used to move backwards in a PDL List. See PDL, page 3A.21 

[ NOTE : If X=PDL(3 4 17), then the value of X 

starts at the right most value and moves 
leftward one value each time it is popped.] 
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PREC The function which gives the precision of its argument. 
The symbol % indicates to the computer that the 
precision is going to be changed. See also &PRECISION, 
page 3B.8 of the next section. 
EXAMPLE 1 

x=pi (cr) 



PREC X IS ^JESC) 14 

Y = X %10/->lCRh-" 

Y IS (ESC) ' V-^ 3.141592654 
PREC Y IS y (ESC) 10 



EXAMPLE 2 



Z = -1694. 123456789 (CR) 
PREC Z IS-. (ESC) ^ 13 
Q = Z %8 (CR) V — J 

Q IS (ESCW -16 94.12 3 5 

Q*Z IS ^-^SCJ 2.8700543E6 

LET QQ = Q^Z-^ y (C^ 

QQ IS (ESC) >-3 .8700543E6 

PREC QQ IS 7 !ESC)'--x 8 

PREC (Q*Z) IS"-— \ESCJ 8 

PREC Q*Z IS / -(ESCr' -13552.98765431 

PREC Z IS (ESQ-"' 13 



PRINT This word causes the values of the expressions that 

follow to be printed. The variable CR is often used 

in a print statement . 

[ NOTE : CR used in print statements causes line 

feed and carriage return. See CR, page 3A.5.] 

EXAMPLE 1 

A=6.1; B=4.3 

PRINT A,"A",CR,"B",B 

[ NOTE : The print for A, "A", is hard to read. It 
would be better to ask for "A", A.] 

6.1A 
B 4.3 
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PROD The function for the product of the arguments . 
EXAMPLE 1 



PROD(l,2,3,4,5,6,7,8,9) IS ESC) 362880 

EXAMPLE 2 

PROD(7.5929, 63.192, -891) IS ESQ 0-42703.21 

EXAMPLE 3 

LET YY=PRGD(10. 29+81, 16.13+21, 9.7, -11.3) CR^ 
YY IS (ESC) -16439. 1-16399. 81 



PUSH This word means — push down each variable following. 

This allows the user to redefine a variable without 

losing the old value. 

EXAMPLE 1 

X=6.12;^USH X (cr) 
X=34 (CR) 
X IS ov 

34 s—*^ 

POP X; X IS fesC.L 6.12 

PUSH X;^=777 ^^R) 
X IS (CR) V ^ 

7 77 ,.'~x 

POP X; X IS (ESC) 6.12 

POP X; X IS (ESC) [] 

(For example of POP, see page 3A.21.) 



RE The function for the real part of a complex number 

EXAMPLE 1 

RE(SQRTC-l)) IS (CR) 

[ NOTE : /-L = + 11, RE(/^1 ) = ] 

RE ( TEMP ) 

OPERATION NOT IMPLEMENTED 
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READ This word means read in values for 1 variables following 

See page 2.28 of PART TWO, items 6h and 6i. 

(See also , Reference 7, page 5, F.) 

EXAMPLE 1 

READ X,Y (OR! 

-3.5 4.7 CR) 

PRINT X,Y <QR) 

-3.5 4". 7 



EXAMPL1 



1.01: CLEAR %a READ X £R) 

1.02:Y = X CR) " ^ 

1.03:Z= T Y+ 2+T6*Y+4,5 , ^-JCR) 

-] fjli • DDTHT tl7tl 1 pp iPp]"^ 

l.UHil JAJ-IM J. i-i 5^5 ^-T^ ^■'■V 

1.05: PRINT "SQRT(Z) " ,SQRT Z,CR^.. 'CR) 

1.06: PRINT "END OF PART ONE (ClO) ^"" 



DO PART 1 £r) 

3 6^ J 

Z y 61.50000 

SQRT(Z) 7.842194 

END OF PART ONE 



DO PART T_ CR: 
-89.76 (CB 
Z 6625.2 

SQRT(Z) 81.39535 
END OF PART ONE 



SET The beginning of an assignment statement (may be 
omitted in most situations). 
EXAMPLE 1 

FOR T = l BY 2 UNTIL 5 SET A = T; PRINT A,CR (6r) 

5 ' ' r^ 

FOR T = l BY 2 UNTIL 10 SET A=T*T; PRINT A,CR -.CR) 

81 
FOR T=l BY 2 UNTIL 10 SET ACT) =T*T;PRINT A,CR 

(1 [] 9 C3 25 [] 49 [] 81) 

[NOTE: Brackets mean undefined.] 
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EXAMPLE 2 

20.0:Y=PI % 10 £R) ^ 
2 0.1:WL=3.1415*14+Y CR' 
20.2:ZL=4516.5 CR) 

21. 3: IF ZL LEQ WL'^ET ZL = ZL+2*P_I ELSE PRINT "NOT LEQ" 

22. 4: PRINT "ZL" ,ZL ,CR ,WL , "WL S 

[ NOTE : See LEQ, page 3A.13 of this section.] 

DO PART— 2 

Y IS (ESC) 3.141592654 

ZL IS ESC) 4516.5^ 

DO PART-21, 2 2 (QR) 

SYNTAX ERROR. ILLEGAL USE OF COMMA. 

DO PART 21 (CR) 
DO PART 2 2 ^R; 
ZL 4516.5 
47.1226WL 

[ NOTE : For usage of PART, See Reference 7, page 7, N.] 



SIGN This is the function which gives the sign of its 

argument. The value is 1,0, or -1, depending on 

whether the argument is positive, zero, or negative 

EXAMPLE 1 

SIGNC-67) IS, -(pSC; -1 
SIGN(O) IS <ES£pK, 
SIGN (3 7. 4) Ifc-^ESC; 1 



SIN The sin function in radians. 

EXAMPLE 1 

SIN 8.9 IS ^{ESC; 0.50102P5 
SIN I IS (ESCr'" 
SIN( I ) 

ARGUMENT IS WHAT? 

[ NOTE : Sin of complex was not yet Implemented 
at the time of this printing,] 
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EXAMPLE 1 (continued) 



SIN(-14.2) IS (ESC) -0.99803P5 



SIN(3) IS (ESC) 0.11411200080598672 




SIZE A function; its value is an integer giving the size 

of the argument (the number of elements in a vector 

or the number of rows in an array). 

EXAMPLE 1 

X = PDL(16I 14.5 -32) (CR) 

[ NOTE : See PDL, page 3A.21.] 

X IS (ESQ ,—32 
SIZE X 1ST (ESC) 1 
AA=ARRAY(1 Ws'4 5 8) (CR) 
SIZE AA IS (ESQ 6 

AB=ARRAY( (32.42 -16.5)(172 2.3 4)) 'CR) 
SIZE AB IS (ESC) 2 

BB=ARRAY(3 4^3.4 3.2 -17) (CR) 
SIZE BB IS fESC) 5 



SQRT The square root function. 
EXAMPLE 1 



X=25; SQRT(X) IS ^ESCJ.-^ 5 

SQRT (13. 45 + 1001 ) / -IS v -iESC) 7.561430 + 6.6125051 

SQRT(-IOO) IS (ESC\ + 101 

SQRT(-14.2) IS V £Sq 0+3.768291 



STEP This identifies increment value in a FOR statement, 
or a step in a stored program. 



3A.28 



EXAMPLE 1 (FOR statement) 

FOR X = STEP 2 UNTIL 10 PRINT X*X,CR CR; 



4 

16 

36 

64 

100 



EXAMPLE 2 (STEP in a stored program) 



(CR^ 



40.1:X=32.8; Y=X* / £3; PRINT "40.1" 
40.2:PRINT X,Y ICRj —. 

40. 3: LET U = X*Y ,PRiTlT U (CR) ^ 

40. 4: LET ER=Y** IMPRINT "40.4",ER (CR) 
DO STEP 40.1 (CR) 

40.1 ^T 
DO STEP 40.2 S£R) 

3 2.8 ^3 5 28 7. 6 
DO STEP 4 0.3 (qK) 
1.1574£E6 
DO STEP 40.4 (CR) 

40.4 W 4.39405E13 



STOP This word is reserved for future use 



SUM The function for the sum of arguments. 
EXAMPLE 1 



SUM(4, 5, 9, 34, 12) IS (ESC)- .. 64 
SUM(2I, 34.51, 56, 34) IS V ^ESC: ^0+36 . 51 
SUM(-19, 23.45, 67.9, -34) IS-' (ESC, 38.35 



TAN The tangent function. 
EXAMPLE 1 



TAN(4) IS (ESC) 
TAN (4 ) v ~ > 

OPERATION NOT IMPLEMENTED 
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THEN 



This word follows the IF clause and precedes the 
TRUE alternative in a conditional statement or 



expression. 

EXAMPLE 1 



Z=34; IF Z GTR3.14 THEN SET X=3.14. ELSE 
PRINT "Z",Z £R) 

X IS (ESQ 3.14 

Z=2.1; IF Z > £^14 THEN SET X=3.14 ELSE 

PRINT "Z",Z 



34 



(CR) 



TO 



This word identifies the final value in a FOR statement 



(See also, Reference 7, page 4, D.) 



TRUE 



A logical constant (Boolean Logic). 
EXAMPLE 1 



BA= f 3>4' (CRJ 
BA IS fog) 

FALSE 
CB = 4>3 /HCR) 
CB IS (ESC; TRUE 

DD = FALSE .^(CR) 
E = TRUE for"" 



DD AND E IS x^SC 
DD OR E IS (ESC/ 
DD XOR E IS x jESC] 



FALSE 

TRUE 

TRUE 



[NOTE: See XOR, OR, and AND.] 
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TTY 



The abbreviation for teletypewriter. This command 
information to be printed out from file onto tele- 
typewriter unit (See &CONTROL, page 3B.3.) 



TYPE 



Same as PRINT. 



UNTIL This word identifies the final value in a FOR state- 
ment. See FOR, page 3A . 9 and 3A.10. 
(See also, Reference 7, page 4, D.) 
EXAMPLE 1 



FOR T=2 BY 2.5 UNTIL 5 PRINT T**2 
4 20.25 



'CR^ 



VALUE The function for the value of an argument . 
EXAMPLE 1 



NEWT =6. 5 9 <CRj 

VALUE (NEWT £ls (ESC) 6.5 9 

X= ! A+B*C* CR) v -"'.~. 

A=1.2;^B=3.5"f C = 4.5 fcR) 

X IS (CR) 

1^9 5 
VALUE * 
VALUE X IS CR) 

16.9 5 " ^ 

PRINT VALUE CA+B*C») (CR) 

16.9 5 



WHILE The beginning of a WHILE statement. (See Reference 7 
page 4, E.) 
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EXAMPLE 1 

100.1:X=2.3; Y=4.7; PRINT X,Y @ 

101.1 :K=K+1;JLET SS = X 2+Y; X=X+1; PRINT 
X,Y,SS,CR (CR) 

102.1:WHILE X LSS Y DO STEP 101.1 

104.1: LET A(K)=X 2+5 . 3*Y+14*Y*X; PRINT K, ... 
CR,A(1CUX; X=X+1:K= . . . 
K+l (CR) 

104. 2: WHILE X LEQ Y DO STEP 104.1 (CR) 

[ NOTE : See LSS, page 3A.15 of this section.] 

DO STEP 100.1 (CR) 

2.3 4.7 

K=0 . CR 

DO STEP 102.1 

3.3 " 4.7 15.59 

4.3 4.7 23.19 

5.3 4.7 32.79 

DO STEP 100.1 (CR) 

-2.3 4.7 

K=l (CR) 



DO STEP 104.2 (CR) 
1 
181.54 2.3 2 

252.94 3.3 3 

326.34 4.3 



WRITE Same as PRINT. * 

XOR Logical operator; the exclusive or. (If only one is 

true then answer is TRUE. All other cases are FALSE.) 
See OR, page 3A.19. 
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EXAMPLE 1 

[ NOTE : A is a true statement. B is a false 
statement . ] 



A=3>2; B^5>6 (CR) 
A IS (ESC) TRUE 



B IS ESC 4 
C= FALSE-" 



FALSE 



C AND B IS /^ESC; FALSE 

A OR B IS fesCk TRUE 

A XOR B IS NeSCJ TRUE 

A AND B IS ESC) FALSE 

C XOR B IS fesd FALSE 



OSCAR: A User's Manual With Examples 
PART THREE 

SECTION B: COMMANDS 

The commands used under OSCAR are 
identified by the ampersand (&) typed by 
the user, or by OSCAR. The commands have 
been arranged in alphabetical order with 
examples and explanations of their usage. 

Depressing (ESC) will cause the & 
to be printed at the beginning of a line. 




Depressing (ESC; from the & mode will cause 
a return to the regular mode . 

[ NOTE : See Reference 7, Appendix F, for a 
complete listing of & commands.] 
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EXAMPLES OF COMMANDS 

&BKSP,LUNLIST or 

&BKSPACE,LUNLIST This command causes each logical unit listed 

to be backspaced one record. 

EXAMPLE: 

# (account number K (user identification) \CR) 
#EQUIP,3 = DATA (6S) 

[ NOTE : DATA is a saved file this user 

had entered previously. Each line 
corresponds to a record.] 



#OSCAR (CR) 



OSCAR AT YOUR SERVICE V36 08/06/68 0840 
&INPUT,3,TTY (CR) 




& 

READ^A<B,C,D,E,F,G,H,I 5 J,K (CR) 

1234 6789 9876 34.678 

6527 2497 2514 89.341 

4634 7583 3580 23.567 

&BKSP,3 

& (esc) 

READ 

4634 "7583 3580 23.567 




9876 34.678 



A IS (ESC1— 1234 
&FWSP,3 v ^pR) 

& fesa) / - > 

READ 7T \CR) 

4634 7583 3580 23.567 



[ NOTE : Each READ A redefines variable A. 
B,C,D will remain as originally 
defined until redefined . j 
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A IS ESC 4634 

B IS ESC 6789 

C IS ESC 9876 

D IS ESC 34.678 

[ NOTE : For an example of READ, see 

page 3A.2 5 of the previous section J 



&CONTROL,LUN,TTY This command causes statements or commands 

from (LUN) to be read in. TTY (optional) 
causes the text to be printed on the teletype- 
writer as it is read. 
EXAMPLE: 1 

#user number , identification 
#EDIT 

[ NOTE : For EDIT commands, see Reference 
4, Input, Out.] 

]INPUT 

00001:LET ZZZ=987654 . 23+Xt 3 

00002:X=2 

00003:PRINT ZZZ,X,CR 

00004:X=4 

00005:PRINT ZZZ,X,CR 

00006: 

]0UT,ABC 

[ NOTE : The command OUT, NAME will save 
the information under the name 
you specify.] 



#EQUIP,3=ABC (CR) 

]0SCAR 

OSCAR AT YOUR SERVICE V36 08/05/68 1050 



[ NOTE : For OS-3 control commands, see 
Reference 5, EQUIP.] 

&CONTROL,3 5 TTY @ 
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&CONTROL (continued) 



LET ZZZ=987654.23+X+3 

X=2 

PRINT ZZZ,X,CR 

987662.23 2 

X = 4 
PRINT ZZZ,X,CR 

987718.23 4 



[ NOTE : The above seven lines are all 
printed by the computer.] 



X=12.5; PRINT ZZZ 

989607.36 
X = -67. 89 + 101 'CR; 



'CR 



<cr) 

695113. +137271. 51 



PRINT ZZZ 



&REWIND , 3 



&C0NTR0L,3 i£R/ 
987662.23 
987718.23 



EXAMPLE 



#EDIT 



] INPUT 

00001: LET F=SIN(X+ 2 )+C0S (Y+ 2 )+SIN(X) 

00002:LET G=34*X+ 3+24*X 2+Y 

0000 3: PRINT "F=" ,F ,CR, "G=" ,G ,CR 

00004 :IF F G SET A=TRUE ELSE SET A=FALSE 

00005:PRINT A 

00006: 



]OUT,EXAMPONE 

] j Control Shift A 



#EQUIP,3 3=EXAMPONE 
#0SCAR 

OSCAR AT YOUR SERVICE V35 07/17/68 0939 



X=4.5; Y=10 
&CONTROL,3 3 
F= 0.87031P5 
G= 3594.25 
TRUE 
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&CONTROL (continued) 



X=4.5; Y = 10 (CR) 
&REWIND,3 3 (GR) 
&CONTROL,3 3,TTY (CR) 

[ NOTE : By typing TTY after &C0NTR0L, 33 , 
the user can have the file 
printed out as it is being used.] 

LET F=SIN(X+2)+COS(Y+2)+SIN(X) 
LET G=34*X+3+24*Xt2+Y 
PRINT "F=",F,CR,"G=",G,CR 
F= 0.87031P5 
q- 3594 . 2 5 

IF F G SET A-TRUE ELSE SET A=FALSE 
EPRINT A 
TRUE 



&DATE 



This command causes the current date and 

time to be printed out. 

■ EXAMPLE : 

&DATE 
07/30/68 1249 

&0UTPUT,7 
&DATE 

[NOTE: This puts date on logical unit 7.] 



&FWSP,LUNLIST or 
&FWDSPACE,LUNLIST 



This command causes each logical unit listed 
to be spaced forward one record. 

FOR THIS EXAMPLE, PLEASE REFER TO PAGE 
3B.1, &BKSP,LUNLIST or &BKSPACE ,LUNLIST 



&INPUT,LUN,TTY or 

&INPUT,LUN or ^ , 

&INPUT,TTY This command allows data constants to be read 

from a file by READ statements. If an 
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end -of -data is reached, data can be read 
from the teletypewriter (abbreviated TTY) . 
EXAMPLE: 

#EDIT (pR) 
] INPUT 'CR) 

[ NOTE : This is the EDIT command INPUT. 
Do not confuse it with the OSCAR 
command &INPUT, below.] 



1234 6789 9876 34.678 
6527 2497 2514 89.341 
4634 7583 3580 23.567 



00001 

00002 

00003 

00004 . 

] OUT, DATA *P^y '— v 

#EQUIP,1 = DATA (CR) 

§ OSCAR 

OSCAR AT YOUR SERVICE V36 08/06/68 0833 

&INPUT,1,TTY (CR) 

& fesc) ^ 
read v ^c;b,c,d ta) 

1234 6789 "~9876 34.678 

READ E,F,G,H (CR) 

6527 2497 2514 89.341 



READ I 1QR, 

4634 7583 3580 23.567 



A IS (CR) 

1231+ 

B IS ESC 6789 

C IS ESC 9876 

D IS ESC 34.678 

I IS ESC 4634 

I IS ESC 4634 

J IS ESC 0+IJ 

&REWIND , 1 (CR) 

&INPUT,1 (CR) 

& (esq 

READj7^X,C,V iCR) 
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&INPUT,LUN,TTY (Continued) 



READ B,N,M,A,S,D,F,G -fR, 



z 


IS 


(esc] 
(Esd 


1234 




X 


IS 


6789 




c 


IS 


(ESC) 


9876 




V 


IS 


Esq 


34. 


678 


G 


IS 


;esc) 


23. 


567 


F 


IS 


(ESO 


3580 





&0CT0UT, VARIABLE NAME, 
VARIABLE NAME 



This command causes the values of the 

specified variables to be printed in octal form. 

EXAMPLE 1 

#0SCAR (CR) 

OSCAR £TY0'UR SERVICE V36 08/06/68 0900 

Q=~X (CR) 

'(ESC' 

V. .y 

[NOTE: ESC will cause the & to be printed.] 



&0CT0UT,Q (CR; 

Q 

20000634 > 
10002002 INT 
000O0Q01 

& (esc) 

W^2, V ~^R) 
(ESC] '~' ^ 

&GCT0UT,W (CR) 

w 

20000646 > 
10002002 INT 
00,0 2 

& (esc).. 

Y=8 v ~rCRj 

(ESC) "' ^ 

v &0ctout,y Ccr: 

Y 

20002314 > 
10002002 INT 
00000010 
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&OCTOUT,... (continued) EXAMPLE 



^ARRAYCl 6 7 8 9) i'CRj 
(ESC) 



&Oe'TOUT,B (£r) 



20000660 > 
74022001 ARAY 
( 20000646 > 
10002002 INT 
00000001 , 

20000655 > 
10002002 INT 

00000006 , 

20002304 > 
10002002 INT 

00000007 , 

20002306 > 
10002002 INT 
00000010 , 



2 00U2 31U > 
10002002 INT 
00000011 ) 



&OUTPUT,LUN,TTY or 

&OUTPUT,LUN or 

&OUTPUT,TTY This command causes any following outputs 

(from print statements) to be written on the 

logical unit specified on the teletypewriter 

until another &0UTPUT command is given. 

EXAMPLE: 

#0SCAR i£r) 

OSCAR AT YOUR SERVICE V36 08/06/68 084: 



Control Shift A 



#equip,-4=file ;.cr; 

#MI (CR) 
INTERRUPTED 



[ NOTE : OSCAR is left temporarily to equip 
logical unit 4 to a file.] 
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&OUTPUT,... (continued) 



&0UTPUT,4,TTY 'CR) 

[NOTE: For OS- 3 control mode commands, 
EQUIP, MI, see Reference 5.] 



& 'ESC,) 
PRINT-" READ X 
READ X 

PRINT "Y=X+2 
Y = X+2 



(CR) 



cih 



PRINT "PRINT X,CR 
PRINT X,CR 

PRINT "PRINT Y,CR 
PRINT Y,CR 

&0UTPUT,4,TTY CR) 

Control Shift A | 



#REWIND,4 (CR\ 
#SAVE ,4jf n XY CR' 
#MI (CR) 

INTERRUPTED 



ClT) 



:cr) 



[NOTE: For OS-3 control mode commands, 
REWIND, SAVE, see Reference 5.] 

&C0NTR0L,4,TTY (CR) 

READ X 

-897 .654 + 101 

Y = X+2 

PRINT X,CR 

=897.654+101 

PRINT Y,CR 

805683. -17953. 081 



&REWIND,4 

&C0NTR0L>4 
-12.4 (CR) 
-12.V 
153.76 



^ 



(CR 



&PRECISION,<INTEGER> This command causes the standard 

precision of six to be changed to the 
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integer specified. See PREC , page 3A . 2 3 
of the previous section. 
EXAMPLE: 

#OSCAR (6r) 

OSCAR AT YOUR SERVICE V36 08/06/68 0909 

X=34.56; Y=78.90 [C^ 

X*Y IS (ESC) 2-7-2 6.7 8 
PREC (X*yV-IS 'ESC) 6 
&PRECISION,20 (CRf 

& fesc) 

X=34.-56; Y=78.90 (CR) 

X*Y IS feSQ) 2.726. 784P20 

&PRECISI01f=30 



c ;rcni 

X=34>567; Y=78.909 (CRj 



X*Y IS 'ESC) 2727.647403P30 



&PR0GRAM,N, ,M This command is used for creating stored 

programs. It causes the line number, starting 

with the one specified, to be printed for 

each line . 

EXAMPLE : 

&PR0GRAM,6, .02 (£r) 

6.02:LET Q=PI*R+2 / ^CRj 
6. 04-: LET R=.5*n_^ (CR;"' 
6. 06: READ D (CR) "'" 

[ NOTE : See READ, page 3A.2 5.] 

6.08:C= f PI*D ! 6r) ^ 

6.10:PRINT Q ,CR,R ,CR ,D ,CR,C ,CR / _ N (CR 
6.12: PRINT "END OF PART ONE (CR; V "" 
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&PROGRAM N, .M(continued) 



6.14: fee) 
DO PART k~"' (pR; 

5 (CR) 

1:9.635 
2.5 
5 
15.707963267949 
END OF PART ONE 
CLEAR C 
DO PART 6 
-12.7 

126.677 

-6.35 
-12.7 
-39.8982 
END OF PART ONE 

[ NOTE : See Example 3, Stored Program, 
page 2.7 of this manual.] 



iAJ-l l_> xn.JA X 



EXAMPLE: 

&RESTART (CR) 

OSCAR AT YOUR SERVICE V36 08/01/68 142 



&REWIND,LUNLIST 



This command causes the LUN specified (file 
number between 0-99) to be rewound. This 
command is used after the contents of a file 
have been read or written. See &C0NTR0L, page 
3B.2. 



&UDUMP,LUN 



This command causes one block to be written 
containing the contents of the user's OSCAR 
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storage area. This is for saving the 
status of OSCAR for a short time only. 
See example for &ULOAD, below. 

&UL0AD , LUN This command causes one block to be read 

from the LUN specified, restoring OSCAR to 

what it was when dumped. Presently, UDUMP 

and ULOAD must be used with the same version 

of OSCAR, V36 in this example. 

EXAMPLE : 

#EQUIP,llrFILE 
#OSCAR 

OSCAR AT YOUR SERVICE V36 08/01/68 1414 

Q=21; R=-9. 876354+10. 41 
W= f Q+ 2+R*7+SQRT R+SIN Q T 
EPRINT W 



[ NOTE : For use of EPRINT, see page 3A.7.] 

POLISH STRING Q 2 + R 7 * + SORT R . 
(FUN) + SIN Q (FUN) + ; 

&UDUMP,11 



& | Control Shift A~] 



#SAVE,11=UDAT 

#L0G0FF 

TIME 2.340 SECONDS MFBLKS 41 COST $0.25 

[ NOTE : LOGON numbers are blocked out by 
computer . ] 

#job number, user identification (CR) 
#EQUIP,8 8=UDAT ^-^ 

#0SCAR 
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-in nqrAR AT YOUR SERVICE V36 08/01/68 1423 
&ULOAD,LUN (continued) OSCAR Ai iuuk ^^vi^ 

&U LOAD, 8 8 




EPRINT W 
POLISH STRING Q 2 + R 7 * + SQRT R 
(FUN) + SIN Q (FUN) + ; 

PRINT W 

374.19650+76.27991 
R+2 IS -10.618P5-205.428I 



